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ABSTRACT 


Present  implementations  of  APL  interpret 


APL 


expressions  in  an  environment-insensitive  manner.  Operators 
are  applied  directly  to  their  operands  creating  intermediate 
results  for  the  next  operation.  This  method  of 
interpretation  can  be  very  inefficient  in  terms  of  storage 
and  central  processor  requirements.  APL  expressions 
containing  scalar  APL  arithmetic  operators,  inner  and  outer 
products,  and  selection  expressions  can  be  reduced  to  a  set 
of  simpler  primitive  functions  which  minimize  the  creation 
of  intermediate  results.  Evaluation  of  these  reduced 
expressions  can  be  shown  to  be  more  efficient,  in  array 
operations,  than  present  methods  of  evaluation.  A  system 
has  been  developed  and  a  sub-set  of  that  system  has  been 
simulated  which  performs  those  reductions  on  APL 
expressions.  This  simulation  is  composed  of  three  units,  or 
machines,  which  compile  object  modules,  interpret  them,  and 
perform  the  required  evaluations.  The  interpretive  phase  is 
done  in  an  environment-sensitive  manner.  The  simulation  is 


called  APLM 
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INTBODUCTION 


Chapter  One 


An  indicator 

of 

the 

usefulness  of  computers 

is  the 

abundance  of  pr 

cgra 

mining 

languages  varying  from 

machine 

level  languages 

to 

high 

level  languages  such 

as  APL. 

However,  there  must  exist  a  process,  for  each  language,  by 
which  programs  written  in  that  language  may  be  translated 
and  expressed  in  the  machine  level  language  of  the  computer. 
As  languages  are  designed  to  make  the  computer  more 
accessable  tc  the  wide  range  cf  problem-solvers,  the 
interface  between  the  programming  language  and  the  machine 
language  becomes  more  complex. 

1 . 1  A  PL^ 

APL  is  a  precise  mathematical  notation  language,  which 
may  also  be  used  as  an  array -oriented  programming  language. 
Therefore,  the  problem-solver  can  program  a  computer  in  the 
same  notation  that  he  expresses  the  problem.  The  primitive 
functions  in  APL  are  complex,  and  do  not  generally  fit  well 
onto  many  computer  systems.  For  example,  most  computer 
systems  are  element-oriented,  whereas  APL  is  array-oriented, 
hence  there  is  a  mismatch  between  the  programming  language 

Hcwever,  APL  has  been  implemented  by  Abrams 


and  the  system 


' 

■ 


2 


(1966)  , 

Breed , 

lath well 

et  a  1^ 

(1968) 

,  and 

manuals 

written 

by  Eerry 

(1968) ,  and 

Pakin 

(19  6  8) 

reference 


1  •  2  Ih  e  Pro fcl emu 

Programs  written  in  API  can  be  regarded  as  descriptions 
of  the  results  as  well  as  a  method  of  obtaining  them.  It  is 
therefore  reasonable  to  analyze  the  environment  of  AFL 
operators  befcre  applying  them  to  their  operands.  Present 
implementations  of  API  interpret  programs  in  an  environment- 
insensitive  process.  That  is,  each  operator  is  applied  to 
its  immediate  operands  without  analyzing  the  overall  context 
of  that  operator  in  the  APL  expression.  Unnecessary 
evaluations  and  storage  of  unnecessary  intermediate  results 
occur  in  environment-insensitive  interpretive  implementa¬ 
tions.  The  problem  therefore  is  to  develop  an  environment- 
sensitive  interpretive  system  in  which  the  evaluations  made 
in  API  pregrams  are  minimized. 


1.3  A  Solut ic ru 


The  mathematical  properties  of  some  API  operators  have 
been  analyzed  and  transf orma tions  have  been  developed  by 
which  certain  classes  of  API  expressions  can  be  reduced  to  a 
simpl  er  set  of  primitive  operations.  P.  S.  Abrams  (1970) 
has  shown  that  application  of  those  transformations  and 


' 
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execution 

of 

the 

resulting  expression 

is 

more 

efficient,  in 

terms  of 

si 

:cra 

ge  and  central 

processor 

unit 

requirements , 

than  pres 

ent 

imp 

lementations  cf 

APL. 

In 

his 

dissertation , 

Abrams  develops  and  verifies  transformations  which  may  be 
applied  to  selection  and  reduction  expressions,  inner  and 
cuter  products,  and  any  combination  thereof,  containing  one 
inner  or  cuter  product.  Selection  expressions  are  those  APL 
expressions  consisting  of  a  sequence  cf  the  operators  take, 
drop,  reversal  and  transpose.  Seduction  expressions  are  APL 
expressions  which  contain  scalar  arithmetic  operators 
applied  to  their  operands  by  the  reduction  operator.  These 
transformations  are  implemented  by  changing  the  procedure  by 
which  elements  of  the  operands  involved  are  accessed.  For 
example,  transposition  of  a  matrix  is  facilitated  by 
accessing  the  elements  of  that  matrix  in  column-major  order 
rather  than  creating  a  temporary  copy  of  the  transposed 
matrix.  Abrams  outlines  a  system  which  applies  these 
transformations  to  programs  written  in  APL. 

Programs  and  arrays  are  permanently  stored  in  the 
system.  Interpretation  cf  the  programs  occurs  in  a  two- 
phase  process.  The  first  phase  analyzes  the  environment  of 
API  operators  and  their  operands  in  an  expression  and 
generates  a  series  of  instructions  from  which  the  second 
phase  performs  the  operations.  Storage  is  allocated  and  de- 


19  ,4 
■ 

■ 
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allocated  dynamically  as  directed  by  the  first  phase. 
Abrams  developed  the  theory  of  the  system  and  outlined  a 
possible  i nplementaticn . 

The*  object  of  this  thesis  is  to  implement  a  sub-set  of 
Abrams's  system,  by  simulation  on  an  IBM  360/67  system.  The 
simulaticn  consists  of  three  phases,  or  machines,  which 
compile  object  cede,  analyze  the  environment  at  execution 
time,  and  perform  the  required  evaluations.  Stacks  form  the 
storage  structures  upon  which  the  system  functions. 
Instructions  are  stacked,  and  analyzed  when  the  system 
encounters  selection,  reduction  or  outer  product  operations. 
The  process  of  stacking  the  instructions  is  called  deferral. 
The  analysis  phase  determines  the  environment  of  the 
operation  at  execution  time  by  examining  the  stack  of 
instructions,  and  initiates  execution  by  transferring 
ccntrcl  to  the  execution  phase.  Storage  is  allocated  and 
transformations  are  effected  by  the  analysis  phase. 
Extensions  have  teen  added  to  the  system  by  which  outer 
products  may  be  transformed  more  efficiently.  Outer 
products  may  be  transformed  if  the  right-hand  operand  is  an 
array-valued  expression  as  well  as  an  array,  as  Abrams 
defined.  The  simulation  has  been  designed  to  include  only 
those  API  operators  whose  interpretation  is  aided  by  the 
processes  of  drag-along  and  beating. 


' 

- 
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1  .  U  General  Outline. 


Chapter.  Two  briefly  outlines  th 
may  be  applied  to  API  expressions,  a 
their  application.  Chapter  Three 
units  of  the  implementation  such  as 
memory.  Chapters  Four,  Five,  and  S 
and  functions  of  the  processes  u 
operators  into  a  series  of  machine  e 
Chapter  Seven  traces  an  API  expressio 
by  the  machine.  Chapter  Fight  d 
written  to  implement  AFIM.  listings 
contained  in  the  appendices. 


e  transformations  which 
nd  gives  examples  of 
discusses  the  logical 
stacks,  registers  and 
ix  discuss  the  purposes 
sed  to  translate  API 
xecutable  instructions, 
n  as  it  is  interpreted 
iscusses  the  programs 
of  the  programs  are 


. 
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Mathematical  Transformations 


Chapter  Two 


2.1  Drac^alonc]  and  Eea  t  incj^. 

Present  i irplementaticns  of  API  interpret  each  operator 
by  evaluating  its  operands  to  temporary  space.  The  arrays 
in  temporary  storage  are  then  used  as  operands  for  other 
operators  which  in  turn  are  evaluated  to  temporary  storage. 
This  process  may  he  very  inefficient  in  terms  of  storage 
requirements  and  ir  turn,  generates  many  extra  stores  and 
fetches  of  array  elements.  Interpretation  of  the  following 
expression  illustrates  this  inefficiency.  4 t  (A+B*C ) *2 
A  literal  interpretation  of  this  expression  would  result  in 
the  following  execution  sequence. 


A  .  The  elements  cf  the  array  C  would  be  negated 
and  stored  as  an  intermediate  result. 

B.  The  corresponding  elements  of  B  and  the 
intermediate  result  would  be  multiplied  and 
stored  as  a  second  intermediate  result. 

C.  The  corresponding  elements  of  A  and  the  second 
intermediate  result  would  be  added  and  stored 
as  the  third  intermediate  result. 


. 

' 
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E.  Each  element  of  the  third  intermediate  result 
would  then  be  squared  and  stored  as  the  fourth 
intermediate  result. 

E.  The  first  four  elements  of  the  fourth 
intermediate  result  would  then  be  stored  as 
the  fifth  intermediate  result. 


If  A ,  B,  and  C  were  20  element  vectors,  80  words  of  memory 
would  be  required  for  intermediate  results,  and  80  stores 
and  80  fetches  would  be  made  to  and  from  temporary  results. 


The  context  of  the  expression  indicates  that  it  is 
reasonable  to  access  cnly  the  first  4  elements  and  perform 
the  required  operations  on  them.  Only  16  words  of 
intermediate  results,  16  fetches,  and  16  stores  would  then 
be  required.  It  wculd  also  seem  advantageous  to  generate 
each  element  of  the  final  result  element-by-element,  thus 
eliminating  all  temporary  results,  and  their  resulting 
stores  and  fetches. 


The 

process  of  envirenme 

nt-se  nsiti ve 

e valuati 

on  is 

embodied 

ir  two  co 

mplementary 

processes , 

drag-alon 

g  and 

beating , 

which  are 

the  theore 

tical  basis  o 

f  API  M . 

In  the 

following 

sections , 

seme  intere 

sting  proper 

ties  of 

drag- 

along  an 

d  beating 

are  inform 

ally  illustra 

ted  by  me 

ans  of 

selected 

examples. 
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2 . 2  Jx ample  and  Definitions,. 

Stack  instructions  for  the  APL  expression  in  the 
previous  section  could  appear  as  follows,  if  execution  were 
deferred  until  the  take  instruction  is  encountered. 


ICAE  C 

MINUS 

ICAE  E 

MUITIPLK 

ICAD  A 

AED 

ICAD  2 

EC  WEE 

IDS  4 

The  take  operator  denotes  a  selection  of  elements  of  the 
operand  as  the  resulting  array.  Notice  that  the  following 
series  cf  stack  instructions  would  produce  the  same  result. 


ICAD 

MINDS 

ICAD 

MUITIFLy 


4  TAKE  C 


4  TAKE  B 


ICAE 


4  TAKE  A 
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At  D 

ICAE  2 

EC  WEB 


A  similar 
Th at  is ,  i 
arrays,  cn 
unnece ssar 
of  stack 
changing  s 


API  expression  would  be  ( ( 4 +A  ) + ( 4 \B ) x - ( 4 \c ) ) *2 

nstead  of  accessing  all  the  elements  of  the 
ly  the  required  elements  are  accessed,  eliminating 
y  evaluations.  The  process  cf  deferring  execution 
instructions  is  called  drag-along.  The  process  of 
tack  instructions  is  called  beating. 


2.3  Storage  Access  Function . 


This  section  explains  the  procedure 
a  required  element  of  an  array.  For  e 
the  element  4[;/L]  is  to  be  accessed,  wh 
[L[l]  ;L[ 2 ] ; L [ 3 ]  ;  L [ 4]  ;  .  .  . 
and  each  element  of  A  occupies  one  word 
element  is  lccated  at  VBASE+ ( pA ) iL  , 
address  cf  A [ 0  ;  0  ;  0  ;  . . . 

Thus,  subscripts  of  arrays  stored  in  ro 
representations  cf  numbers  in  a  mixed- 
(Knuth  (1968)  p.  297) .  This  methed  of  a 
does  not  favor  any  particular  array  coord 
of  accessing  an  element  may  be  re-written 


used  for  acces 
xample,  assume 
ere  [  ;L ]  mean 

.  .  iLlNll 

in  memory, 
where  VBASE  is 
0  ;  0  ]  . 

w-major  erder 
radix  number  sy 
ccessing  an  ele 
inate.  The  me 
as 


sing 

that 

s 

This 

the 

are 

stem 

ment 

thod 


VBASE +ABASE ++ /DEL*L 


pnx 
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Where 
a  we  i 
coordi 
follow 


DEI  is 
used  i 
This  f 

A 

const  a 
descri 
the  DA 
by  the 
array . 
operat 
evalua 
which 
eguiva 


ABASE  is  as  additive  displacement  from  VBASE.  DEL  is 
ghtirg  vector,  which  has  one  element  fcr  each 
nate  of  the  required  array,  and  is  computed  as 
s; 

DELIN1+1 

DEL[_I  ~]<-DEL  [i  +  l]x(Pj4  )  [  J  +  l  ] 

Ie (\N-1) 


used  to  calculate  the  base  for  the  decode  operator 

n  VBASE+(pA)±L . 

unction  is  krcwn  as  the  storage  access  function. 


n  array  descriptor,  DA,  contains  the  weighting 
nt  vector,  VBASE,  and  AEASE,  fcr  the  array  it 

bes.  DAs  are  fully  described  in  Chapter  Three.  Thus 
for  each  array  contains  all  the  infcrmaticn  required 
storage  access  function  to  access  any  element  of  that 
The  following  sections  explain  how  the  selection 
ors  (take,  drop,  reversal,  transpose) ,  may  be 

ted  by  the  AELM  by  changing  the  information  in  the  BA 
describes  that  array.  These  evaluations  are  the  A  ELM 
lent  of  heating. 


■ 

- 


Fecall  that  the  EA  for  array  M  contains  the  following 


information . 


F  AN  K 

p  p  M . 

F  V  EC 

p  M. 

VEASE 

Location  of 

f  irst 

element  of 

,M. 

ABASE 

Constant 

term 

of  access 

function . 

DEI 

Vector  of 

weighting  coeffic- 

ients  of 

the  storage  access 

function . 

let  A  and  M  be  arrays  conformable  for  the  operation 
A+M  .  The  following  changes  to  constants  in  the  EA  for  M 
facilitate  the  take  operation. 

ABASE+ABASE+DEL+ . *(A< 0 ) xRVEC- \ A 
RVEC+IA 


That  is,  if  the  array  is  accessed  using  the  transformed  DA, 
its  elements  will  be  accessed  in  the  manner  similar  to  that 
of  the  array  A\M  .  Therefore,  the  elements  of  the  array 
need  not  be  repeated  or  re-organized  to  represent  the 
selection  operation.  If  it  is  required  that  the  array  M 
remain  in  the  system  intact,  its  DA  is  copied  to  a  new  DA  in 


J 

12 


memory,  and  the  transformations  are  applied  to  the  copied 
DA.  Thus,  when  the  array  M  is  tc  be  accessed,  the  former  DA 
is  used  to  access  its  elements.  However,  if  the  array  A\M 
is  to  be  accessed,  the  transformed  DA  is  used.  The 
transformation  cf  the  DA  is  known  as  the  machine  process  of 


The  transformations  applied  to  the  DA  of  M  to  effect  the 
operation  A  \M  are  as  follows. 

ABASE+-ABASE  +  DEL  +  .  x  (A>0  )x  \A 
RVEC+RVEC- \A 


The  transformations  applied  to  the  DA  of  M  to  effect  the 
operation  <p[J  ~]M  are  as  follows. 

ABASE+ABASE+DELlJ]xRVEClJl- 1 
DELIJ1+-DELLJ] 


The  transformations  applied  to  the  DA  of  M  to  effect  the 

operation  A§M  are  as  follows. 

R+RVEC 

D+-DEL 

RANK*-  1  +  T /A 
1 

DEL<-RANK\DEL 

RVEC+RANK \RVEC 

REPEAT ;  RVECin  +  l  /  (I=A  ) /R 

DEL<-+/ (I  =  A  )  !R 

2>It 1 

+(I<RANK) /REPEAT 


I 


(4 


- 
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The  transformations  applied  to  the  DA  of  M  to  effect 
subscripting  by  a  scalar  J ,  alcng  coordinate  K,  are  as 
follows. 

ABASE+ABASE+DELtm+J 
DEL<-  ( K*  \RANK  )  /  DEL 
R  VEC+-  (K*\  RANK  )  /  RVEC 
RANKER ARK- 1 

Vectors  of  consecutively  increasing  or  decreasing 
elements  are  encoded  as  j-vectcr  (len,org,s).  The  number  of 
elements  in  the  vector  is  called  len  and  the  smallest 
element  is  called  erg.  The  first  element  is  org  and  the 
following  elements  increase  in  value  monatomically  if  the 
value  of  S  is  1.  The  elements  decrease  monatomically  to  org 
if  the  value  of  S  is  0.  The  transformations  applied  to  the 
EA  of  M  to  effect  subscripting  by  a  j-vector,  along 
coordinate  K,  are  as  follows. 

ABASE+-ABASE+DELIK1*0RG+(LEN-1  ) 

RVECIK1+-LEN 
DEL  f  K  +  -DEL\_K  ] 


END  ; 


■ 
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F 

the  f 

The 

encou 


or  example,  conside 
irst  section  cf  thi 
stack  instructions 
nterirg  the  take  in 


r  an  expression 
s  chapter. 

would  appear 
str uction . 


similar  to  that  in 


as  follows,  fcefore 


1C  A  D  C 

MINUS 

ICAD  E 

MUIT1FLI 

ICAE  A 

AEE 

ICAD  2 

FC  WEE 

ICAD  D 


let  A,  B,  and  C  te  ten  by  ten  matrices  and 
vector  E  be  2  4.  The  DAs  for  A ,  B,  and  C  are 
except  for  the  VEASI  values.  ABASE  is  0,  RANK  is  2 
is  10  10.  The  vector  EEL  is  10  1.  According 

transformations  stated  earlier  in  this  section, 
instruction  can  be  effected  by  beating  the  EAs 
operands.  Therefore,  the  AFLM  would  apply 
transformations  to  the  EAs  of  A,  B,  and  C,  as 


let 

the 

ident 

ical 

and 

RVEC 

to 

the 

the 

take 

o  f 

the 

the 

TAKE 

outl 

ined 

earlier  in  this  section 


The  vector  A  in  the  transformation 


15 


is  the 

take  operand 

2  4. 

AEASE  becomes 

8 

6  and  BVEC 

becomes  2 

4  and  these 

values 

are  placed  in  their 

respective 

fields  in 

the  DAs  for 

A ,  B ,  a 

nd  C.  Evaluation 

of 

the  take 

operator 

is  then  ccm 

plete  b 

ecause  every  time 

the 

arrays  A, 

B,  and  C  are  accessed  through  the  transformed  DAs  ,  they 
would  appear  to  be  the  result  of  the  take  operation.  Any 


further 

eva 

luat icns 

would 

be 

carried  out  on 

ly  o 

n  the 

reguir ed 

el 

ements  cf 

A, 

E, 

a 

nd 

C.  A  similar 

proc 

ess  is 

applied 

to 

tie  stac 

k  instruct 

ions  when  any 

sel 

ection 

operator 

is 

evaluated. 

The 

rem 

aining  cha 

pters 

of 

th 

is 

thesis  descri 

be  a 

system 

which  applies  the  processes  of  drag-along  and  beating  to  API 
programs;  in  an  interpretive  mcde . 
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General  Cbjects  of  APLM 

Chapter  Three 

APLM  is  divided  into  three  logical  units  cr  machines, 
the  C-Machine,  the  D-Machine,  and  the  E-Machine.  A  ELM  is 
principally  a  stack  machine  which  accepts  as  source  code, 
pregrams  written  in  API.  An  APL  program  is  stored  in  memory 
as  one  or  more  program  segments.  Arrays  of  data  are  stored 
in  linearized  row-major  erder.  Each  program  segment  has  a 
corresponding  segment  descriptor  which  contains  location  and 
size  information  afcout  its  program  segment.  Similarly,  each 
array  of  data  is  referenced  by  at  least  one  array  descriptor 
which  contains  information  for  accessing  that  array.  Each 
segment  descriptor  has  a  corresponding  entry  in  the  Name 
Table  (see  section  3.3).  The  C-Machine  (convert)  compiles  a 
series  of  D-machine  instructions  from  APL  source  code.  The 
D-Machine  (deferral)  interprets  these  instructions  and 
compiles  a  series  of  E-Machine  (execution)  instructions  in  a 
stack.  The  E-Machine  performs  the  reguired  calculations  and 
transformations  on  the  arrays  of  data,  as  directed  by  the 
instructions  in  the  stack.  A  compilation  of  APL  source  code 
by  the  CM  (C-Machine)  can  be  used  as  an  object  module  and 
need  not  he  re-compiled  each  time  it  is  tc  be  executed.  The 
D-Machine  and  the  I-Machine  provide  no  object  modules.  Data 


. 

■ 
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arrays  and  their  descriptors  are  discussed  in  section  3.4. 
Program  segments  and  their  descriptors  are  discussed  in 
section  3.5.  Figure  3.1  illustrates  the  structure  of  M . 

3.1  Memory  _A r r a ni e 

Memory  contains  data  arrays,  programs  segments,  and 
their  descriptors.  Program  segments  and  data  arrays  are 
stored  frcm  lew-  order  memory  (M)  toward  high-order  memory. 
Descriptors  are  stored  from  high-erder  M  toward  lew-order  M. 
The  available  memory  between  the  descriptors  and  their 
objects  is  called  PCOI.  Another  portion  of  AFIM  memory 


contains  two  tables,  the 

Name 

Index  Table  and  the 

Name 

Table . 

These  tables  provide 

ind 

irect  addressing  for 

the 

names 

and  the  descriptors 

of 

segments  and  arrays. 

All 

entries  in  M  have  a  twe-werd  prefix  which  contains  a 
reference  count  (EC),  (see  Collins  (1965)),  a  length  value, 
and  a  filler  count.  The  length  value  is  the  length  of  the 
entry  and  the  filler  count  is  the  length  of  the  unused 
portion  of  the  entry,  in  the  case  that  a  larger  entry  had 
previously  occupied  it. 


■ 


■ 
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A V  AIL  AELE 
ARRAY  SPACE 
LIST  WITH 
FORWARD  LINKS 


BOTTPOOL 


PC  C I 


TOFFOCL 


AVAIIAELE 
DA  SPACE 
LIST  WITH 
FORWARD  LINKS 


AVAI1ABLE 
ARRAY  SPACE 
LIST  WITH 
BACKWARD  LINKS 


AVAILABLE 
DA  SEACE 
LIST  WITH 
BACKWARD  LINKS 


Structure  of  Memory 


Figure  3. 1 
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3.2  Memory  Haragement . 


Space  for  new  descriptors  is  allocated  from  the  high- 
order  end  cf  FCOL  and  space  for  new  program  segments  and 
data  arrays  is  allocated  from  the  lew-order  end  of  FCCL. 
When  an  entry  becomes  vacant,  that  is,  when  its  BC  is 
reduced  to  0,  it  is  linked  in  an  availability  list.  The 
descriptor-availability  list  and  the  array-availability  list 
are  both  forward  and  backward-linked.  When  space  is 
reguired,  the  appropriate  availability  list  is  searched 
using  the  first-fit  method  (Knuth  (1968)  436, ff).  If  no 
vacant  entry  is  large  enough,  space  is  allocated  from  the 
appropriate  boundary  cf  FCCL.  However,  if  POOL  is  not  large 
enough,  a  garbage-collection  process  is  initiated.  Several 
characteristics  of  descriptors  make  it  worthwhile  to  collect 
vacant  array  spaces  before  vacant  descriptor  spaces.  Many 
of  the  descriptor's  associated  arrays  local  to  a  program 
segment  are  likely  to  be  of  the  same  size  and  therefore 
could  be  used  intact.  Because  of  drag-alcng  and  beating. 


descriptors  are 

expected 

to  h 

ave  a  shorter 

life-time 

than 

their  associated 

objects . 

Since 

arrays  and 

segments 

are 

larger  and  more 

stable 

than 

descriptors. 

collection  of 

available  array 

spaces 

should 

be  more  economical 

than 

collection  of  available  descriptor  spaces. 

When  available  array  space  is  to  be  collected,  array 
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descriptors  are  scanned  and  a  linked  list  is  set  up  which 
ties  together  all  descriptors  referring  to  the  same  entry. 
Arrays  are  then  compacted  toward  low-order  M  with 
adjustments  to  their  pointers  in  the  referent  descriptors. 
Available  spaces  adjacent  tc  ECCL  are  merged  with  ECOI. 

When  available  array  descriptor  space  is  to  be 


cclle 

cted,  an 

algorithm  sim 

ilar  tc 

that  fcr 

array  spaces  is 

used . 

As  each 

descri 

ptor  is 

ccmpac 

ted  toward 

high-order  M, 

the 

pointer 

in  the 

Name 

Table 

is  changed 

appropriately . 

Avail 

able  des 

criptor 

space 

is  c 

ollected 

only  if  the 

co  lie 

cticn  cf 

array 

space  does  not 

free  the 

required  amount 

cf  co 

ntigucus 

memo  ry . 

3.3  A  ELM  Segisters^ 

Six  register- like  structures  in  AELM  provide  the 
mechanisms  for  memory  accesses,  program  ccntrol,  and 
processing  of  data. 

3.3.1  Name  Index  T at le^  (NIT) 

NIT  is  generated  by  the  C-Machine  (CM) ,  and  used  only 
by  the  CM.  As  the  CM  generates  an  object  module  from  an  API 
program,  it  must  use  indirect  addressing  because  the 
environment  of  the  system  at  execution  time  is  unknown. 


■ 
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3.3.2  Name  Ta b le_.  (NT) 


NT  is  generated  by  the  CM  and  the  DM  and  used  only  by 
the  DM.  The  CM  generates  an  NT  entry  each  time  it  generates 
a  program  segment,  and  each  time  a  data  array  is 
initialized.  The  corresponding  NT  entries  basically  consist 
of  the  INX  value  of  the  named  object  and  a  pointer  pointing 
to  the  segment  descriptor  or  the  array  descriptor  for  that 
object.  When  that  object  is  referenced  by  its  INX  value,  NT 
is  searched  associa tively  using  the  INX  value  as  the  bey. 
The  pointer  in  the  corresponding  NT  entry  indirectly 
indicates  the  location  of  the  program  segment  or  the  data 
array . 


The  DM  generates  entries  each  time  a  program  segment  is 


to  be  interpreted 


An  NT 


entry  is 


generated  for  each 
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parameter,  local  variable  and  the  result,  cf  a  program 
segment.  When  NT  is  searched  associatively ,  from  the  top, 
all  references  to  named  objects  will  be  made  through  the  NT 
entries  generated  for  that  program  segment,  unless  they  are 
global  variables.  NT  entries  for  global  variables  occur  in 
the  portion  of  the  NT  created  by  the  CM,  or  do  not  exist  at 
all.  If  an  NT  entry  for  a  variable  cannot  be  found,  a  new 
entry  is  generated  for  the  new  global  variable.  This  method 
of  accessing  named  objects  facilitates  the  functions  of 
local  and  global  variables  as  required  by  the  syntax  of  API. 
When  the  program  segment  is  terminated,  all  NT  entries  local 
to  that  program  segment  are  pepped. 

A  detailed  description  of  an  NT  entry  follows.  The 
first  two  bytes  of  the  twelve-byte  entry  contain  the  INY 
value  cf  the  ramed  object.  Byte  three  contains  a  -type  flag 
(TYPE)  ,  which  describes  the  type  of  data  referenced. 
Permissible  types  in  the  TYPE  field  are  boolean,  integer, 
character,  real,  and  long-real  (dcuble-precision) .  They  are 
encoded  as  BCCI,  INT,  CHAR,  REAL,  and  IREAI  respectively. 
Bit  twenty-four  contains  an  ICL  flag  which  has  the  value  1 
for  a  local  variable  and  0  for  a  global  variable.  Bit 
twenty-five  contains  an  MRK  flag,  which  contains  the  value  1 
for  the  first  local  variable  for  the  program  segment,  and  0 
for  the  ether  local  variables.  The  fourth  byte  contains  a 
TAG  flag  which  identifies  the  object  referenced  by  the  NT 
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entry.  Permissible  identifiers  in  the  TAG  field  are;  ST  for 
scalar  quantities,  JT  for  encoded  j-vectors,  UT  for  as-yet 
undefined  identifiers,  ET  for  arrays,  and  FT  for  program 
segments.  Bytes  five  through  twelve  are  labelled  VALUE. 
The  VALUE  fiela  certains  the  actual  values  for  entries  with 
TAG  values  of  JT  or  ST,  otherwise  it  contains  a  pointer  to  a 
program  segment  cr  an  array  descriptor.  All  other  fields 
are  unused  and  labelled  X. 

Name  Table  Entry 

0  2  4  6  8  10  12  (BYTES) 


_ 1 _ 1 _ 

_ 1 _ 1 

_ 1 _ 

_ i _ 1 

_ 1 _ 

INX  | TYP |  |  VALUE  |  (BITS) 

/ 

24  26  28  30  32  (BYTES) 


|LCL|MRK|  X  |  TAG  |  (BITS) 

3.3.3  Location  Stack^  (LS) 

LS  contains  information  about  the  current  program 
segment  with  respect  to  instruction  accessing.  Program 
segments  are  characterized  by  a  starting  address 


and  a 


- 
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length.  Each  IS  entry  contains  the  starting  address  (OBG) , 
the  length  (LEN) ,  a  counter  (REL)  ,  an  Instruction  Stack 
pointer  (QP)  ,  and  control  information.  The  control  infor¬ 
mation  consists  of  5  flag  bits,  CE,  IS,  FN  and  NW.  DE 
informs  the  system  whether  the  DM  or  the  EM  should  be  given 

control.  IS  has  the  value  1  if  this  segment  is  associated 

with  an  iteration,  otherwise  it  has  the  value  0.  JR  has  the 
value  1  if  this  is  the  main  segment  of  an  active  function, 

otherwise  it  has  the  value  0.  NW  is  set  to  the  current 

value  of  NEWIT,  which  is  1  at  the  beginning  of  a  new  nest  of 
iterations,  otherwise  it  is  set  to  0. 

location  S tack  Entry; 

0  2  4  6  8  10  12  14  16  (BYTES) 


,  1  , 

i  1  1 

,  1  L 

i _ 1 - 

REL 

ORG 

LEN 

QP  | 

4  ^6^^ 

8  (BITS) 

,  1  , 

i  1  1 

f  DEI  IS |  FN|NW 

X 

When  a  program  segment  is  activated,  an  entry  is  pushed 
to  the  LS.  OBG  is  set  to  the  starting  addross  of  the 
segment,  LEN  is  set  to  the  length  of  the  segment,  EE  is  set 
for  the  DM,  and  the  ether  three  flags  are  set  according  to 


&$ 
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the  state  of  the  system  at  that  time.  PEL  is  set  to 
initialize  the  process  of  accessing  instructions.  Ea 
an  instruction  is  accessed,  PEL  is  incremented  by  the 
of  that  instruction  so  that  the  address  of  th 
instruction  may  be  properly  calculated  by  OPG  +  PEL. 
REL  has  the  same  value  as  LEW  the  segment  is  termin 
popping  the  LS.  This  process  automatically  re-activa 
calling  segment  exactly  as  it  was  when  the  call  was 
The  control  information  in  each  entry  is  used  to  coo 
the  LS  with  the  otter  stacks  in  the  AFLM . 

3.3.4  Iteration  Control  Stacks  (IS) 

IS  is  used  to  control  the  element-by-element  eva 
of  array-valued  expressions,  facilitating  the 
orientation  cf  A PL  programs.  Each  entry  contains  a 
(CTP)  ,  a  direction  (DIP)  ,  a  maximum  value  (MAX)  ,  and 
information.  CTP  is  originally  set  to  origin 
incremented  to  the  maximum  value  contained  in  MA 
direction  cf  incrementation  is  supplied  by  DIP  which 
for  increasing  and  1  for  decreasing.  Control  info 
consists  of  a  change  flag  (CH)  ,  and  an  iteration  mar 
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Iteration  Stack  Entry 


(BYTES ) 


(BITS) 


IS  behaves  like  a  nest  of  loops.  When  a  set  of 
iterations  is  started,  MAX  and  DIE  are  pushed  as  an  entry  to 
IS,  and  CTE  is  initialized.  When  data  is  to  be  operated  on, 
the  indexing  information  is  taken  from  IS  and  applied  to  all 
the  instructions  in  that  particular  code  segment.  When  a 
segment  is  completed,  and  the  reguired  iterations  have  not 
been  completed,  CTE  is  incremented  and  the  code  segment  is 
re- initialized  with  the  new  CTR  value.  When  the  required 
iterations  have  been  completed,  both  IS  and  IS  are  popped, 
returning  APIM  to  its  state  before  the  iterations  began. 
Eor  an  n-dimensional  array,  n  entries  in  IS  provide  the 
necessary  information  for  accessing  the  data  in  the  required 
sequence.  IMK  functions  as  a  flag  to  indicate  the  outermost 
iteration  of  a  nest  of  iterations.  As  the  nest  of 


iterations  is  indexed,  CH  is  set  to  1  if  the  CTR  for  that 


' 
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particular  IS  entry  was  changed.  If  CTB  was  not  incremented 
during  that  indexing,  CH  is  set  to  0.  The  function  of  the 
IS  is  fully  explained  in  6.2. 


3.3.5  Value  S t ack_.  (VS) 


VS  is  the  main  stack  in  the  APLM  and  is  used  in  the 
evaluation  of  expressions  and  in  function  calls.  Each  entry 
consists  cf  a  tag  (TAG)  ,  a  type  (TYP) ,  an  expression  flag 
(EXP) ,  a  heat  flag  (BET) ,  and  a  value  (VALUE) .  Permissable 
tags  are  JT  ( j-vectcr)  ,  DT  (array  descriptor)  ,  FDT  (function 
descriptor) ,  FMT  (function  mark) ,  FT  (function  descriptor 
pointer)  ,  AT  (encoded  K-address) ,  NPT  (name  pointer) ,  RT 
(reduction  accumulator) ,  SGT  (segment  descriptor) ,  ST 
(scalar  value)  ,  UT  (u ridentif ied  value)  ,  NIT  (end  of  ICB 
block) ,  and  NT  (for  ICB  block) .  Permissible  types  are  E00L 
(boolean),  CHAR  (character),  INT  (integer),  REAL  (real), 
LREAL  (long  real)  ,  and  UNUSE  (unused  memory)  .  VALUE  is 
described  by  TAG  and  by  TYP  the  the  case  cf  TAG  being  ST. 
EXP  further  describes  the  Q S  segment  pointed  to  when  TAG  is 
SGT.  EXP  has  the  value  2  if  the  segment  is  an  array-valued 
expression,  1  if  it  is  an  array,  and  0  otherwise.  EET  has 
the  value  0  if  the  segment  is  beatable,  and  1  otherwise. 

The  value  field  of  a  VS  entry  serves  as  an  accumulator. 
Monadic  and  dyadic  operations  are  carried  cut  on  the  top  and 
top  two  entries  of  VS  respectively. 


■ 
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Value  Stack  Entry 

0  2  4  6  8  10  12  (BYTES) 


| TAG | TYP | EXP | BET |  VALUE 

3.3.6  Instruction  Stacks  (QS) 

This  stack  cculd  be  more  correctly  called  a  buffer 
because  entries  ether  than  the  latest,  or  top  entry,  may  be 
accessed  and  altered  at  any  time  during  the  operation  of 
both  the  EM  and  EM.  Instructions  to  EM  are  both  compiled 
and  altered,  if  need  be,  by  EM  in  QS.  EM  accesses  these 
instructions  and  interprets  them.  Instructions  in  QS 
consist  of  entries  of  lengths  one,  two,  or  three  words  which 
occur  in  the  following  formats. 

A.  Type  1  consists  of  a  one-word  entry  which 
contains  cnly  a  one  byte  operation  code  (OF) . 
Unused  fields  are  labelled  X. 


■ 
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(BYTES) 


E. 


Type  2  consists  cf 
contains  an  OP  and 


a  one-word  entry  which 
a  three-byte  address 


(ADDE)  . 


4  (BYTES) 


OP  |  ADDR 


Type  3  contains  an 

CP,  a 

one-byte 

type 

descriptor 

(Typ)  ,  and 

cne  bit 

of  logical 

dat 

or  one  byte 

of  character  data 

(EAT)  . 

0 

2 

4  (BYTES) 

|  OP  |  X  |  TYP  |  DAT  | 

D.  Type  4  is  similar  to  type  3  except  that  EAT 
may  be  a  full  word  integer  cr  real  value. 
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(BYTES) 


E.  Type  5  is  two  words  in  length  and  contains  an 
origin  field  (CBG) ,  a  length  field  (LED) ,  a 
direction  field  (MD) ,  and  an  OP.  The  ME  field 
could  contain  the  direction  bit  for  a  j- 
vector . 


F  . 
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_j _ 

1  OP |  ORG 
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Type  6  is  three  words  in 

length  a 

to  type  4  except  that  EAT  m 

precision . 
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_ j _ 
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G.  Type  7  certains  a  24  bit  mask  (MASK)  ,  and  a 
24-bit.  link  displacement  value  (INKDSF)  .  MASK 
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Type  8  is  the  same  as  type  5  with  the  addition 
of  a  INRDSF  field  as  a  suffix. 
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3.3.7  Additional  ^€.2  i  £  ters_. 

The  explanation  of 
completes  the  discussion  of 
APLM.  ICFG  is  the  index 
function.  FBASE  is  the  base 
active  function.  FREG  is  the 
for  the  currently  active 


four  single-value  registers 
register-like  structures  in 
origin  of  the  currently  active 
in  M,  of  the  currently 
of  the  function  mark 
ISMK  is  the  index  of  the 


address, 
VS  index 
function 
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topmost  IS  entry  containing  1  in  its  MASK  field. 

3.4  Cata  Structures. 

3.4.1  Scalars. 

The  simplest,  data  structures  are  scalar  values.  Scalar 
values  in  APLM  may  be  of  type  boolean,  character,  integer, 
real,  and  long  real.  Scalars  are  treated  as  arrays  which 
are  of  rank  0,  but  are  not  stored  in  memory  as  arrays.  They 
are  stored  in  VS  or  as  immediate  operands  in  DM  source  code. 
Each  scalar  has  a  type  flag  (see  3.3.5),  which  provides 
information  for  encoding  and  decoding.  This  type  attribute 
appears  with  the  scalar  value  in  the  VS. 

3.4.2  Arrays., 

The  representation  of  an  array  consists  of  two  parts. 


The  first  part 

is 

the  actual 

array  va 

lues 

in 

a  dense,  row- 

major,  linear 

all 

ccation  in 

M.  The 

secon 

a 

part  of  the  data 

structure  is 

an 

array  desc 

riptcr 

(DA)  . 

Each  array  is 

referenced  by  at  least  one  DA  containing  the  rank, 
dimensions,  and  access-function  constants  for  that  array. 
Each  array  may  be  referenced  by  a  different  EA  for  each 
application  of  beating  to  that  array,  as  explained  in 
Chapter  Two.  DAs  are  stored  in  the  high-order  portion  of  M. 


■ 
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The  DA  may  now  b€  fully  described  because  the  storage 
access  function  has  been  described  in  Chapter  Two.  In 
common  with  ether  objects  in  M,  each  CA  has  a  standard  two- 
word  prefix  containing  a  reference  count  (PC)  ,  a  length 
value  (VALUE) r  and  a  filler  count  (FILLER) .  The  first  word 
of  the  body  of  the  DA  contains  the  base  address  (VBA SE) ,  and 
the  second  word  contains  AEASE.  The  third  word  contains  the 
rank  (RANK)  of  the  array.  A  two-word  entry  for  each 
dimension  of  the  array  occurs  after  the  third  word.  Each 
two-word  entry  consists  of  the  dimension  (R) ,  and  the 
weighting  constant  DEL  (I) r  labelled  D ,  for  that  dimension. 

Descript cr  Array 


01234  (BYTES) 


0 

- 1 - 1 - 1 - 

LENGTH 

1 

RC 

FILLER 

2 

VBASE 

3 

ABASE 

4 

RANK 

5 

R  ( 1) 

D  ( 1) 

(WORDS) 


Figure  3.2 
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3.5  Program  Seamen 

Programs  written  in  APL  are  compiled  by  the  CM  into  one 
or  more  program  segments  which  contain  a  series  of  DM 
instructions.  Segments  contain  no  absolute  addresses,  and 
named  variables  are  encoded  as  INX  values  which  remain 
constant  in  the  system.  Program  constants  are  encoded  in 
program  segments  and  all  internal  references  are  relative  to 
the  base  of  the  program  segment.  Programs  are  therefore 
relocatable. 

Each  program  segment  is  referenced  by  a  segment 
descriptor  which  has  the  standard  two-word  prefix.  The 
first  word  of  the  tody  of  the  segment  descriptor  contains 
the  address  of  the  start  (FVBASE)  of  the  program  segment  in 
M,  and  the  result  flag  (FR£) •  The  second  word  contains  the 
length  ( F1EN)  ,  in  bytes,  and  the  index  origin  (FCG)  of  the 
segment.  The  third  word  contains  the  number  of  parameters 
(FPS) ,  and  the  number  of  local  variables  (FICIS)  in  the 
program  segment.  A  two-byte  field  cortaining  the  INX  value 
for  the  result,  parameters,  and  local  variables,  if  any,  in 


that  order,  occurs  after  the  third  word 


■ 

_ 


0 


1234  (BYTES) 


0 

- 1 - , - 1 - 

LENGTH 

1 

RC 

FILLER 

2 

FRS 

FVBASE 

3 

FOG 

FLEN 

4 

FPS 

FLCLS 

5 

INX 

INX 

(WORDS) 


Figure  3.3 
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C-Machine 

Chapter  Four 

The  C-Machine  (CM),  compiles  APL  programs  into  object 
modules,  in  a  Polish  form,  which  are  interpreted  ty  the  D- 
Machine  DM.  Program  segments  contain  DM  instructions  in 
various  formats,  which  are  explained  in  section  4.4. 
Section  4.2  contains  a  condensed  overview  of  the  functions 
of  APL  operators.  Section  4.3  lists  and  describes  all  DM 
instructions . 

4.1  CM  Object  Modules^. 

A  compiled  program  segment  is  stored  in  low-order  M  and 
referenced  by  a  segment  descriptor,  which  is  stored  in  high- 
order  M.  The  segment  descriptor  is  referenced  by  a  entry  in 
NT.  All  program  segments  and  named  objects  are  accessed  by 
their  INK  values  obtained  from  NIT.  Therefore,  all 
references  to  named  objects  or  other  program  segments  are 
replaced  ty  their  respective  INX  values  in  the  CM.  Each  APL 
operator  is  replaced  ty  a  DM  instruction.  Program  constants 
are  encoded  in  the  program  segments  as  data  arrays.  These 
arrays  are  constructed  in  the  same  format  as  named  arrays  of 
data,  and  are  pointed  to  ty  array  descriptors.  Each  program 
constant  array  is  then  replaced  ty  its  array  descriptor 


' 
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pointer. 

Each 

program  se 

internal 

ref er en 

ces  ar 

e  re  la 

segment . 

Data 

arrays 

are  a 

need  not 

be  re-c 

cmpile 

d  each 

becau  s  e 

the  ob 

ject  m 

odules 

and  data 

indepen 

dent . 

That 

pointers 

to  data 

array 

descr 

altered 

and  s 

till 

remain 

ccnf or mability  i 

s  chec 

ked  by 

CM  object  modules. 


gment  is  relocatable  because  all 
tive  to  the  base  of  the  program 
Iso  relocatable.  An  AIL  program 
time  it  is  to  be  executed 
cf  that  program  are  relocatable 
is,  all  data  references  are 
iptors.  Arrays  may  therefore  be 
correctly  referenced.  Array 
the  EM  when  it  interprets  the 


4.2  API  Overview. 

It  is  assumed  that  the  reader  has  a  working  knowledge 
of  API.  However,  a  brief  description  of  the  function  of  API 
operators  is  included  in  this  chapter  for  reference 
purposes.  Table  4.1  contains  the  monadic  and  dyadic 
primitive  scalar  functions.  Tables  4.2  and  4.3  contain 
information  about  inner  and  cuter  products  respectively. 
Table  4.4  contains  the  primitive  mixed  functions  and  notes 
about  those  functions  are  listed  in  table  4.5. 
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Monadic 

Definition 
or  example 

+B  *~>  0+B 

-B  *-->  0 -B 

*B  *~>  (B>0)-(B<0) 


T  B  *~> 

1  tB 

B 

r  b 

LB 

3  .  14 

4 

3 

3.  14 

"3 

4 

*B  (  2  .  71828  .  .  )*B 
®*N  n  *a/y 

I  _  3 .  14  *-->  3.14 


form  f B 


f 


Dyadic 


Name 


Name 


form 


4fB 


Definition 
or  example 


Plus 

Negative 
Sign urn 
Reciprocal 
Ceiling 
Floor 

Exponential 

Natural 

logarithm 

Magnitude 


+ 


X 


r 

L 

★ 


Plus 

Minus 

Times 

Divide 

Maximum 

Minimum 

Power 

Logarithm 

Residue 


2+3.2  *-->  5.2 
2-3.2  «--►  “1.2 
2x3.2  *~>  6.4 

2  +  3.2  *~>  0.625 

3  r  7  *~>  7 
3  L  7  *-->  3 
2*3  * — *  8 

4®B  *~>  Log  B  base  A 
4®B  *-->  (®B)+®4 


Case 

A  |B 

A*  0 

B-(  U)xLB*  |  A 

4=0  ,  B>  0 

B 

A  =0  ,B<0 

Domain  error 

10  +--►  1 

\B  B  x  I B  - 1 

or  IB  *~*  Gamma(B+i) 


Factorial 


Binomial  A  IS 
coefficient  2! 5 


( IB )*( l A) x\B -A 
10  3  !  5  *--►  1 0 


?B  Random  choice 
from  iS 


Roll 


Deal 


A  Mixed  Function  (See 
Table  3.8) 


O  B  *-->5x3.14159... 


Pi  times 


o 


Circular 


See  Table  at  left 


~1  *-->  0 


Not 


(  -A  )oB 

A 

4oB 

( 1-B*2  )*.  5 

0 

( 1-B*2 )*„ 5 

Arcsin  B 

1 

Sine  B 

Arccos  B 

2 

Cosine  B 

Arctan  B 

3 

Tangent  B 

(  1+B*2)*„5 

4 

(  1 +B  *  2  )  *  .  5 

Arcsinh  B 

5 

Sinh  B 

Arccosh  B 

6 

Cosh  B 

Arctanh  B 

7 

Tanh  B 

Table  of  Dyadic  o  Functions 


A 

V 

Ar 

*0 


< 

< 

> 

> 

* 


And 

A 

B 

4  aB 

4VB 

4  aB 

4  V'B 

Or 

0 

0 

0 

0 

1 

1 

Nand 

0 

1 

0 

1 

1 

0 

Nor 

1 

0 

0 

1 

1 

0 

1 

1 

1 

1 

0 

0 

Less 

Not  greater 
Equal 
Not  less 
Greater 
Not  Equal 


Relations 

Result  is  l  if  the 
relation  holds,  0 
if  it  does  not: 

3  <  7  *~>  1 
7  <  3  *-->  0 


APL  Scalar  Functions 
Figure  4.1 

Reprinted  by  permission  from  APL\360?  User's  Manual 
@1968  by  International  Business  Machines  Corporation. 
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P  A 

oB 

oAf.qB 

Conformability 

requirements 

Definition 

Z+-A  f .  g B 

Z+f/AqB 

V 

Z+f/A  g  B 

U 

Z+-f/AqB 

U 

V 

U  =  V 

Z+f/AqB 

V  W 

W 

Z[  J>f/4gB[  ;J] 

T  U 

T 

Z[  I>f/4[I;  IgB 

U 

V  W 

W 

u=v 

Z[ Il+f/AgBl ill 

T  U 

V 

T 

u=v 

Z[  J>f  /Al  J;  IgB 

T  U 

V  w 

T  W 

u=v 

ZlhJl+f/AZIilqBZiJl 

APL  Inner  Products 
Figure  4.2 


P  A 

P  B 

p  A  o  .  gs 

Definition 

Z+A  o  .  g B 

Z+AqB 

V 

7 

ZZn+AqBZll 

U 

U 

zzn+AZ  IlgB 

u 

V 

U  V 

Z[I;e7  >4mgB[J] 

V  W 

V  W 

Z[ I-tJ]+AqBZ JjJ] 

T  U 

T  U 

ZZhJl+AZhJlgB 

U 

V  W 

U  V  W 

ZHiJiKl+AlIlgBlJ-'in 

T  U 

V 

T  U  V 

ZZhJim+AZliJlqBZK] 

T  U 

V  w 

T  U  V  W 

ZZhJlKiLl+AZllJlgBZKiLl 

APL  Outer  Products 
Figure  4 . 3 

Reprinted  by  permission  from  APL\360;  User's  Manual 
@1968  by  International  Business  Machines  Corporation. 
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Name 


Sign1 


Definition  or  example2 


Size 

P  A 

Reshape 

VpA 

Ravel 

,A 

Catenate 

V,V 

VlAl 

Index34 

MIA  \A  ] 

A  C  A  ;  .  . 

.  .  ;A  ] 

P  P 


P  E 


3  4 


P5 


Reshape  A  to  dimension  V 
1  2  p  P  »-  i  1  2  OpP  »  i 0 

,A  »-  (  *  /  p  A  )  pA  ,E  >-*i  1 2 


PjJ  2 


2  3  5  7  1  2 


-  i  0 

3  4p  i  12  >->  E 
P,5  »  1 
*  T»  » HIS1  >->  ' THIS ' 


P[2] 


PC  4  3  2  1]  >>7  5  3  2 


PC  1  3  ;  3  2  1]  >->  3  2  1 

1110  9 

PCI;]  >>-  12  3  4 

PC  ;  1  ]  >->  1  5  9  '  ABCDEF  GHIJKL  'CP] 


/9  5PD 
PFGP 
IJKL 


Index 

generator 

Index  of3 


iS 


V\ A 


First  S  integers 


Least  index  of  A 
in  V,  or  1  +  p  7 


i  4  - 

i  0  - 

Pi  3 
4  4  i  4 


12  3  4 

an  empty  vector 


PiP 


5  12  5 
3  5  4  5 
5  5  5  5 


Take 

Drop 


V+A 

ViA 


Take  or  drop  |7CF]  first 
(7CP]so)  or  last  ( 7C P] < 0 ) 
elements  of  coordinate  I 


2  3fX 


ABC 

EFG 


'2  +P 


5  7 


13  5  3  2  >>  4  13  2 

V  3  5  3  2  >->  2  13  4 


Grade  up3  5 

Grade  down35 


IT 

VA 


The  permutation  which 
would  order  A  (ascend- 
ing  or  descending) 


Compress5 


V/A 


Expand* 


V\A 


101  0/P  - 
i  o  1/C1]P 


2  5 


101  0/P 


1  3 
5  7 
9  11 


12  3  4 

9  10  11  12 


1  0  1  \  i  2  >>  10  2 


>10  1/P 

1011  1\X  - 


A  BCD 
E  FGH 
I  JKL 


Reverse5 


Rotate' 


<t >A 

A<t>A 


4>X  -< 
3<t>P 


DCBA 

HGFE 

LKJI 


4>P  > 

7  2  3  5  >>  -l<t>P 


4>Ci]*  - 

7  5  3  2 


eZ 


1  0  l<t)X 


IJKL 
EFGH 
ABCD 
BCD  A 
EFGH 
LIJK 


Transpose 


VIS)  A 


§A 


Coordinate  I  of  A 

becomes  coordinate 

7CP]  of  result  1  1§F 


2  1  tS)X  * 

>  1  6  11 

Transpose  last  two  coordinates_ frP  »  2  1§P 


AEI 

BFJ 

CGK 

DHL 


Membership 


AeA 


p WeY  »  p W 

Pe  i  4  »  1  1  0  0 


0  110 
PeP  »  1010 
0  0  0  0 


Decode 

Encode 


ViV 

Vt  s 


101  1  7  7  6  »  1776  2  4  60  6  0  i.  1  2  3  »  372  3 

24  60  6  0  T  3  7  2  3  >>  1  2  3  60  60T3723  >>23 


Deal3 


S?S 


W?Y 


Random  deal  of  W  elements  from  \Y 


APL  Mixed  Functions 
Figure  4.4 

Reprinted  by  permission  from  APIA 360  ;  User's  Manual 
@1968  by  International  Business  Machines  Corporation. 
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1.  Restrictions  on  argument  ranks  are 
scalar,  V  for  vector,  M  for  matrix, 
the  first  argument  of  S\A  or  S[A], 
instead  of  a  vector.  A  one-element 
scalar. 


indicated  by:  S  for 
A  for  Any.  Except  as 
a  scalar  may  be  used 
array  may  replace  any 


2.  Arrays  used  1  2  3  4  A  BCD 

in  examples:  P  2  3  5  7  E  5  6  7  8  X  »■  EFGH 

9  10  11  12  IJKL 

3.  Function  depends  on  index  origin. 

4.  Elision  of  any  index  selects  all  along  that  coordinate. 

5.  The  function  is  applied  along  the  last  coordinate;  the 

symbols  /,  V,  and  e  are  equivalent  to  /,  \,  and  <t> , 

respectively,  except  that  the  function  is  applied  along  the 
first  coordinate.  If  [S]  appears  after  any  of  the  symbols, 
the  relevant  coordinate  is  determined  by  the  scalar  S. 


Notes  To  Figure  4 . 4 
Figure  4.5 


Reprinted  by  permission  from  APL\360;  User's  Manual 
@1968  by  International  Business  Machines  Corporation. 
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4.3  Object  Module  Instruct ion 

Instructions  for  the  DM  fall  into  eight  separate 
classes  and  appear  as  a  series  of  instructions  in  a  stack. 
Following  is  a  discussion  cf  the  instructions  and  their 
description,  fcr  each  class. 

4.3.1  Storage  Management  Instructions. 

These  instructions  load  scalar  values,  segment 
descriptor  pointers,  and  j-vectors  into  the  value  stack 
(VS) .  They  produce  no  instructions  for  the  EM  nor  do  they 
result  in  any  mathematical  or  logical  operations  on  data. 


Orcgde  Operand  Description 

IDS  scalar  The  scalar  value  in  the 


operand  field  is  tc  be  loaded 
into  a  new  entry  in  the  VS 
with  their  appropriate  type 
value. 

LDSEG  seg-desc  The  segment  descriptor  address 

in  the  operand  field  is  to  be 
loaded  as  a  new  entry  in  the 
VS. 

ID J  j-code  The  j-vector  in  the  operand 


field  is  to  be  loaded  as  a  new 


-> 


4  3 


entry  in  the 

VS. 

1  El  S 

K 

The  entry  K 

from  the  top 

of 

the  IS  is 

to  be  accessed 

and 

its  counter 

value  is  to 

be 

loaded  as 

a  new  entry  in 

the 

VS. 

IECCN 

K 

Access  the 

program  constant 

which  is  located  at  FEASE+K. 
An  array  descriptor  is 
constructed  to  access  that 
constant  (element  or  array) 
and  its  address  is  pushed  to 
the  VS  with  tag  FET. 

N  The  address  of  the  object  N  is 

pushed  to  the  VS. 

N  The  variable  object  N  is 

referred  to  and  its  current 
value  is  transferred  from  NT 
to  VS. 

The  following  instructions  produce  EM  instructions 
which  assign  values  to  the  corresponding  variables. 


Opcode  Operand  Description 

ASGN  ■**  The  value  in  the  second  entry 


IEN 


IDNF 


of  the 
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VS  is  stored  in  the 
variable  whose  address  is 
contained  in  the  first  entry 
of  VS.  The  value  is  then 
discarded  by  popping  VS. 

ASGNV  +■  A  procedure  similar  to  that 

for  ASGN  is  followed  except 
that  the  value  is  left  in  VS. 


4.3.2  Control  Instructions. 


These  instructions  cause  the  DM  to  continue  accessing 
instructions  at  an  updated  address. 


Opcode  Opera nd  Description 

JMF  K  Continue  with  normal  instruc¬ 


tion  accessing  at  the  location 
K  (signed)  bytes  from  the 
present  location. 

JMPO  H  Check  last  entry  in  the  VS. 

If  the  value  is  0r  do  the  same 
as  JMF  K.  Otherwise,  continue 
with  normal  instruction  ad¬ 
dressing  . 

JMF1  K  Check  last  entry  in  VS.  If 


the  value  is  1,  do  the  same  as 


' 
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JME  K,  otherwise  continue  with 

normal  accessing  of  instruc¬ 
tions. 

LEAVE 

Terminate  interpretation  of 

the  current  program  segment. 

EETUBN 

Terminate  interpretation  of 

the  current  program  segment 

and  resume  interpreting  the 

calling  program  segment. 

DO 

Call  the  EM  to  interpret 

instructions  in  the  QS. 

DO  I 

Call  the  EM  and  allocate 

temporary  space  for  a  result, 

if  any,  and  leave  the  result 

on  the  VS. 

4.3.3  Dyadic  Scalar  Cperatcrs. 


These 

DM  instructions 

implement 

the  dyadic 

scalar 

operators 

of  AFL.  Dyadic 

operators 

reguire  th 

at  both 

operands  be 

the  same  type  and 

dime  rsicn 

or  that  cne 

operand 

be  a  scalar  cf  the  same  type  as  the  other  operand.  In  the 
second  case,  the  scalar  value  is  in  effect  extended  to  the 
same  dimension  as  the  other  operand. 


46 


DM  Operator 

API  Symbol 

ADD 

+ 

SEE 

- 

MUL 

X 

DIV 

MCD 

, 

MIN 

L 

MAX 

r 

P  WR 

* 

LCG 

© 

CIR 

o 

DEAL 

? 

COMB 

T 

AND 

A 

OF 

V 

NAND 

A* 

NOF 

V 

IT 

< 

LE 

< 

£Q 

- 

GE 

> 

GT 

> 

NE 

* 

Definition 

Add. 

Subtract. 

Multiply. 

Divide. 

Residue. 

Minimum. 

Maximum. 

Power . 
logarithm. 

Circular  function. 
Fandom  deal. 

Eincmial  coefficient 
or  beta  function, 
logical  and. 
logical  or. 
logical  nand. 
logical  nor. 
less  than, 
less  than  or  equal. 
Equal . 

Greater  than  or  egual 
Greater  than. 

Not  equal. 
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4.3.4  Monadic  Scalar  Operators . 

These  instructions  implement  the  same 
monadic  scalar  API  operators.  Each  operator  is 
one  operand,  which  may  be  a  scalar  value  or  an 


functions 

applied 

array. 


as 

to 


EM  Operator 

API  Symbol 

Eef inition 

PLUS 

+ 

Plus. 

MINUS 

- 

Minus. 

SGN 

X 

Signum. 

RECIP 

* 

Reciprocal. 

ABS 

1 

Absolute  value. 

FLOOR 

L 

Floor. 

CEIL 

r 

Ceiling . 

EX 

* 

Exponential  (base 

LCGE 

© 

Logarithm  (base  e 

FI 

o 

Fi  times. 

RANE 

? 

Random  deal. 

FAC 

1 

• 

Factorial  or 

gamma  function. 

NOT 

Logical  not. 
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4.3.5  Selection  Operators. 

These  instructions  result  in  arrays  being  re-shaped  or 
re-arranged  without  individual  elements  being  changed. 


DM  Operator 

API  Symbol 

Definition 

TAKE 

+ 

Take . 

E  EC  P 

+ 

Drop. 

REV  K 

Reverse  along 

coordinate  K. 

TRANS 

Generalized  transpose 

TNX  K 

[ 

Index  on  coordinate  K 

4.3,6  Immediate  Evaluation  OjDera tors^ 


These  op 
encountered 
difficult  to 


er aticns 
by  the 
apply  the 


must  be  executed  as  soon 
DM,  because  it  may  be 
processes  cf  drag-along 


as  they  are 
impossible  or 
and  beating. 


DM  Operator 


BASE 
REP 
GDO 
GED 
CAT  K 


API  Symbol 
i 

T 

4 

¥ 


9 


Definition 
Base  value  (decode) . 
Representation  (encode) . 
Grade  up. 

Grade  down. 

Catenate  K  entries. 


RAV 


Ravel 


• 
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URHO 

P 

Dimension. 

D  B  80 

P 

restructure 

U  IOTA 

i 

Interval. 

4.3.7  Deferrable  Operators . 

The  execution  of  these  instructions  iray  be  deferred  in 
the  instruction  stack  (CS) . 


DM  operator 

API  Symbol 

Definition 

ROT  K 

4> 

Rotate  on  coordinate  K. 

EPS 

e 

Membership. 

DICTA 

i 

Rank . 

CMPRS  K 

/ 

Compress  on  coordinate  K 

EXPND 

\ 

Expand  on  coordinate  K. 

SOBS  K 

[ 

Subscript  with  K 

entries  in  VS. 

4.3.8  Cc raj: cun d  Operators  . 

These  instructions  are  compound  API  operations,  where 
AOP  means  an  API  operator  instruction,  and  CE  is  the 


operand . 


' 
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DM  Operator  definition 

RED  K  AO P  The  array  op  is  reduced  along  the 

coordinate  K  ty  the  operator  ACP. 
GDE  AOF  This  is  the  general  dyadic  form 

involving  the  operator  AOP. 


4.4  Instruction  Formats. 


CM  object  modules  consist  of  a  standard  two-word 
prefix,  a  series  of  DM  instructions,  and  encoded  program 
constants,  if  any.  The  program  constants  are  similar  to 
data  arrays.  The  DM  instructions  occur  in  eight  formats. 
Each  format  is  diagrammed  and  the  instructions  which  have 
that  format  are  listed.  The  hexadecimal  code  is  listed  for 
each  operator. 

A.  Type  1  is  two  bytes  in  length  and  contains  a  four-bit 
length  field  (1EN)  ,  and  a  six-bit  opcode  field  (CF) . 
Unused  fields  are  labelled  X. 


0 

1 

2 

(BYTES) 

,  1  , 

1 _ 1 _ 

1  LEN  | 

X 

1 

OP 

1  1 

' 
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CPEFAT_CP 

OPCODE 

OPERATOR 

CECCEE 

A  SGN 

1 

BASE 

E 

ASGNV 

2 

REP 

C 

15  A  VI 

3 

GDU 

E 

RETUFN 

4 

GDD 

E 

ITM 

c 

RAV 

E 

DO 

6 

ORHO 

10 

DOI 

7 

DRHO 

1  1 

TAKE 

8 

UIOTA 

12 

DROP 

9 

EPS 

13 

TRANS 

A 

DIOTA 

14 

Type  2  is  th 

e  sa  me 

as  type  1  with  the 

addition  cf  a 

six-bit  operand 

field 

(K) .  K  contains  the  coordinate 

upon  which  the 

operation  is  tc  be  carried 

out . 

0 

] 

L 

? 

(BYTES) 

,  1  , _ 

_ I _ _ 1 _ 

LEN 

K 

1 

OP 

OPERATOR 

OPCODE 

OPERATOR 

OPCODE 

IDIS 

15 

I  NX 

IE 

IDCCN 

16 

CAT 

1C 

JhP 

17 

ROT 

IE 
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OWPO 

18 

CMPRS 

IE 

JMP1 

19 

EXFNE 

IE 

REV 

1  A 

SOBS 

20 

C.  Type  3  is  the  same  as  type  1  with  the  addition  of  an 
APL  operator  field  (AOP) .  AOP  may  be  any  of  the 
monadic  or  dyadic  scalar  arithmetic  operators. 


0 

1 

,  1  , _ 

1 

1  1 _ 

LEN  | 

AOP 

1 

OP 

(BYTES) 


CFEFA1CB  OPCCEE 
MCNAEIC  21 


EYAEIC  22 

GEE  23 


E  . 


Type 

value 


4  is  a  full  word  in  length  and  contains  an  index 
field  (I  N  X )  ,  which  certains  index  values  of  named 


v  aria ties 


' 

- 
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0 

2  4 

1 

1 

,  1  , 

|  len|  X 

1  OP 

INX 

CEEFATOR  CPCCDE 

LDN 

24 

I DNF 

25 

(BYTES) 


E.  Type  5  is  a  full  word  in  length  and  contains  an  AGP  and 
a  K. 

n  2  4  (BYTES) 


|LEN  I  AOP  |  OP  |  X  |  K 

OPEEATOE  CPCCEE 
PED  K  OP  26 

F .  Type  6  is  six  lytes  in  length  and  contains  an  address 
field  (ADDR)  . 


0 

2  4 

5  (BYTES) 

— i-  1 

, 

_ 1 _ i _ 

i _ 

_ 1 _ 

|len|  X  |  OP 


X 


ADDR 


■ 
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CFEFATOP  CFCODE 
LESEG  27 

G.  Type  7  varies  from  two  bytes  to  ten  bytes  in  length  and 
contains  a  type  field  (TYP)  and  any  one  of  the 
following  data  fields;  binary  (B)  ,  integer  (INT)  , 
character  (CHAR)  ,  real  (REAL)  ,  and  long  real  (IREAL)  . 
The  instruction  lengths  for  E,  CHAR,  INT,  BEAL,  and 
LREAI  are  2,  2,  6,  6,  and  10  bytes  respectively  as 

shown  in  the  following  multiple  diagram. 


0 

1 

2 

1 

i 

_ i _ 1 

_ 1 _ 

LEN 

2 

TYPE 

b|  X  |  OPCODE 

4  6 

_ 1 

_ , _ 

_ l 

_ i _ 

(BYTES) 


(BYTES) 


INT, CHAR, REAL 


. 

; 
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H  . 


- 1 _ i _ 

i 

| 

1 

LREAL 

1 

CEEFATOR 

OPCODE 

IDS 

28 

Type  8 

is  ten  bytes  in 

length  and  conta 

its  value  field  which  are  encoded  as  an 

direction  (DIF) 

,  and  a 

length  (JIEN) . 

0 

] 

2 

l 

A 

_ i _ 

|  LEN 

X 

OPCODE 

2  4 

6 

o 

i — i 

CO 

1 

1 

1 

1 

lx  1 

ORG 

Idir  1 

LEN 

10  (BYTES) 


2  (BYTES) 


10  (BYTES) 


C P  E  F  A  T  0  F  OPCODE 


ID  J 


29 
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4.5  Monadic  and  Dyadic  Opcodes . 

Ihe  monadic  and  dyadic  operators  which  appear  as 
operands  for  the  operators  MONADIC  and  DYADIC  are  listed 
below  with  their  ccr responding  opcodes. 


DYADIC 

CECCDE 

MONADIC 

DYADIC 

OPCODE 

ADD 

1 

PLUS 

AND 

E 

SUB 

2 

MINUS 

OR 

F 

MUL 

3 

SIGNUM 

NAND 

10 

DIV 

4 

EECIP 

NOR 

11 

MOD 

E 

ABS 

LT 

12 

MIN 

6 

FLOOR 

LE 

13 

MAX 

7 

CEIL 

EQ 

14 

PWR 

8 

EXP 

GE 

15 

LOG 

9 

LOGE 

GT 

16 

CIR 

A 

PI 

NE 

17 

DEAL 

E 

RAND 

COMB 

C 

FAC 

D 

NOI 

' 
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The  D-Machine 


Chapter  Five 


5 .  1  Introduction 

The  E-Machine  (DM) ,  accesses  instructions  from  CM 
otject  modules  (program  segments) ,  interprets  them  and 
compiles  a  series  of  EM  instructions  in  the  instruction 
buffer  (QS) .  DM  uses  the  location  stack  (LS)  to  access  DM 
instructions  and  program  segments.  The  value  stack  (VS) , 
provides  the  necessary  information  for  allocating  and 
accessing  memory.  The  name  table  (NT)  provides  the  DM  with 
the  link  between  the  index  value  and  the  descriptor  of  a 
named  object  in  memory.  Information  regarding  dimensions  of 
arrays  is  placed  on  the  iteration  stack  (IS)  .  The  DM 
applies  the  processes  of  drag-along  and  beating  to  EM 
instructions  residing  in  the  CS.  Some  array  conf ormabilit y 
checking  is  undertaken  by  the  DM.  DM  decides  when  to  pass 
control  to  the  EM. 

5.2  DM  Object  Instructions^ 

Because  the  target  of  the  DM  is  FM  instructions  it  is 
necessary  to  be  familiar  with  the  EM  instruction  set,  which 


is  explained  in  the  following  three  sub-sections. 


ni 

' 
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5.2.1  Single  Inst r net ions. 

Opcode  Name  and  Function 

S  Load  scalar:  ‘Ihe  scalar  value  is  pushed 

to  VS  with  the  tag  set  to  ST. 

IFA  load  array  element:  The  index 

environment  for  the  array  is  linked  to 
the  instruction  in  the  £S.  The 
instruction  is  changed  to  FA. 

FA  lead  array  element:  An  element 

determined  by  the  indexing  environment 
is  pushed  to  the  VS  with  the  tag  ST. 

IA  Lead  array  address:  The  index 

environment  for  the  array  is  linked  to 
the  instruction  in  the  QS ,  which  is  then 
changed  tc  A. 

A  Load  array  address:  The  encoded  address 

of  the  selected  element  is  pushed  to  VS 
with  the  tag  AT. 

IJ  Load  j-vectcr  element:  The  index 

environment  for  the  j-vector  is  linked 
to  the  instruction  in  the  QS ,  which  is 
then  changed  to  J. 

J  Lead  j-vectcr  element:  The 


required 


. 
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GOP 


OP 


NIL 

IBD 


IRP 


element  of  the  j-vector  is  computed  and 


pushed  to  VS  with  the 

tag 

ST. 

Scalar  operator: 

The 

value  field 

contains  the  name  of 

a 

dyadic  scalar 

arithmetic  operator 

whose  operands  are 

the  top  entries  of  VS 

• 

The  result  is 

left  in  VS  after 

the 

operands  are 

deleted. 

Scalar  operator:  The  value  field 

contains  the  name  of  a  dyadic  scalar 
arithmetic  operator  whcse  operand  is  the 
top  entry  of  VS.  The  result  is  left  in 
VS  after  the  operand  is  deleted. 

Nil:  No  operation  is  performed. 

Result  dimension:  This  instruction  is 
used  only  by  the  DM  and  is  left  in  QS 
when  a  segment  is  passed  to  the  EM. 
When  encountered  by  the  EM,  an  IFD  is 
changed  tc  NIL. 

Result  dimension:  This  instruction 

causes  the  same  action  as  IBD. 


5.2.2  Control  In  struct  ion  s_. 


These  instructions  alter 


the 


normal 


instruction 
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access ing 


Opcode 

SGV 


SG 


JMP 


JNO 


JN  1 


JO 


J1 


BED 


procedures  as  well  as  activate  program  segments. 

Name  and  Function 

load  segment  descriptor:  The  value  field 
certains  a  QS  segment  descriptor.  This 
address  is  made  absolute  and  pushed  to 
VS  with  the  tag  SGT. 

Activate  segment:  The  value  field,  if 
non-zero,  points  to  a  pseudo-instruction 
stack  in  CS.  EM  is  then  activated  to 
execute  the  stack  of  instructions. 

Jump:  Unconditional  jump  to  the  location 
defined  by  the  link  field  and  the  value 
field. 

Jump  if  0:  Jump  if  top  of  VS  contains 
the  value  0. 

Jump  if  1:  Jump  if  top  of  VS  contains 
the  value  1. 

Jump  if  0:  Jump  if  top  of  VS  contains 
the  value  0  and  pop  the  VS. 

Jump  if  1:  Jump  if  top  of  VS  contains 
the  value  1  and  pop  the  VS. 

Begin  reduction:  Push  an  element  with 
tag  ET  to  the  VS  to  act  as  a  reduction 
accumulator  and  jump  as  descrited  by  the 


' 

. 
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instruction  JMF. 

MIT  Mark  and  iterate:  Scalar  values  on  top 

cf  VS  are  used  to  start  a  new  iteration 
nest  in  IS.  The  absolute  value  of  the 
VS  value,  less  1,  is  the  MAX  field  in 
IS,  the  iteration  direction  (DIE)  is 
forward  (0)  if  VS  is  positive  otherwise 
backwards  (1) .  The  CNT  field  is 

initialized  tc  0  or  MAX  if  DIE  is  0  or  1 
respectively.  The  first  entry  in  IS  has 
its  MEK  bit  set  to  1  while  all  other 
entries  are  set  to  0.  Each  VS  entry  is 
popped.  When  an  SGT  entry  is  found,  it 
is  popped  and  the  named  segment  is 
activated  in  IS. 


5.2.3  Micro-instructions . 

These  instructions  are  used  primarily  for  manipulating 
pseudo-iteration  stacks. 


Opcode 

POP 


DUP 


Name  and  Function 

Eop:  The  top  entry  in  the  VS  is  popped. 
Duplicate:  The  link  elements  cf  the  top 
VS  entry  are  pushed  as  a  new  entry  to 


the  VS 


; 
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ORG  load  Iorg:  The  current  value  cf  ICRG  is 


pushed  to  the 

VS  with  the  tag  ST. 

Cl 

Cycle:  The  IS 

is  stepped  and  the 

current 

segment  is  re 

-executed  if  the  IS 

has  not 

overflowed . 

LVE 

Leave:  The 

current  segment 

is  de¬ 

activated.  A 

ny  associated  IS 

entries 

are  erased. 

RPT 

Repeat:  The 

current  segment 

is  re- 

executed  fro 

m  the  beginning 

ti  it hout 

affecting  the 

IS. 

CAS 

Case:  The  top 

entry  of  VS  is  expe 

cted  to 

certain  an  integer  scalar,  say  N.  The 
VS  is  popped  and  the  instruction  at  the 
location  referenced  by  N  is  executed. 
Execution  is  then  resumed  at  the 
location  referenced  by  the  VALUE  and 
LIKE  fields. 

VXC  Exchange:  The  top  two  entries  on  the  VS 

are  interchanged. 

1X1  load  from  pseudo-IS:  LINK  fields  are 

relative  pointers  to  XT  entries.  The  XI 
field  cf  the  referenced  entry  is  pushed 
to  the  VS  with  the  tag  ST.  The  XI  field 
corresponds  to  the  CTR  field  of  an  IS 


. 

' 
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entry . 


LX  2 

Load  from  pseudo-IS:  The  X2  field  of  the 

referenced  entry  is  pushed  to  the  VS 

with  the  tag  ST.  The  X2  field 

corresponds  to  the  MAX  field  cf  an  IS 

entry. 

S  X  1 

Store  in  pseudo-IS:  The  top  (ST)  entry 

on  the  VS  is  stored  in  the  XI  field  of 

the  referenced  XT  entry  and  the  VS  is 

popped . 

SX2 

Stcre  pseudo-IS:  The  top  (ST)  entry  of 

the  VS  is  stored  in  the  X2  field  of  the 

referenced  XT  entry  and  the  VS  is 

popped . 

IXL 

Index  load:  IXL  initializes  the  XL 

instruction  by  setting  the  LINK  field  to 

pcint  to  the  IS  or  a  pseudo-IS  element. 

XL 

Index  load:  This  instruction  gets  the 

current  iteration  value,  adds  ICFG  and 

pushes  the  result  to  VS  with  the  tag  ST. 

XS 

Index  store:  IOPG  is  subtracted  from  the 

ST  entry  on  the  VS  and  stored  in  the  XI 

field  of  the  XT  entry  at  the  location 

described  by  the  VALUE  field  and  the 


LINK  field 
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XC  Index  change:  Ihe  X3  field  of  the 

referenced  XI  entry  is  set  to  1.  The  X3 
field  corresponds  to  the  CH  field  of  an 
IS  entry. 


ISC  Activate  segment  conditional:  This 


instruction 

initializes  the 

SC 

in¬ 

s tr uction . 

SC 

Activate  seg 

ment  conditional: 

The 

value 

field  cf  the 

instruction  is  a  Q 

S  se 

gment 

descriptor . 

If  the  bit 

in 

the 

referenced  I 

S  or  pseudo-IS 

is  1 

,  the 

segment  is  a 

ctivated.  Otherw 

ise , 

the 

change  bit  of 

the  XT  entry  referenced  by 

the  following  instruction  is 

set 

to  0 

and  this  instruction  is  shipped 

• 

5 . 3  Tnterp 

re 

tat ion 

of  CM-inst ruct 

ions. 

The 

D 

M 

interprets  DM  instructions,  which  are  located  in 

program 

se 

aments , 

and  compiles 

EM  instructions 

for 

all 

instruct 

io 

ns 

€X< 

cept  storage 

management  or 

control 

instruct 

io 

ns 

.  The 

following  sub- 

sections  of  this 

se 

ction 

contain 

de 

script 

icns  of  the 

interpretation  of 

th 

e  DM 

instructions. 


■ 

■ 
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5.3.1  Storage  Management  Instructions. 


These  instructions  are  primarily  concerned  wi 
allocation  of  storage,  and  the  accessing  of  dat 
instructions  IDS,  IDSEG ,  LCJ,  and  LDN  have  im 
operands  which  are  pushed  to  the  VS  with  the  tags  S 
JT,  and  NPT  respectively.  The  LDIS  instruction 
operand  K,  accesses  the  IS  entry  K  entries  from  the 
loads  in  the  VS,  as  a  scalar,  the  value  of  the  C NT 
TAG  is  set  to  ST,  for  a  scalar,  and  TYPE  is  set  to  I 
an  integer.  The  ICNF  instruction  refers  to  a  named 
whose  index  value  is  the  operand.  NT  is  s 
associatively  for  that  INX  value  and  the  current  valu 
NT  is  pushed  to  the  VS.  If  the  NT  entry  has  the  tag 
array) ,  the  reference  count  of  the  DA  is  increased  ty 
it  is  pushed  to  the  VS,  and  the  TAG  is  set  to  EET 
LDCCN  instruction  refers  tc  a  constant  array  w 
encoded  in  the  corresponding  program  segment.  The  cp 
is  the  displacement  of  the  DA  from  the  base  of  the 
segment.  The  DA  is  then  copied  to  M  with  its  VEASE 
the  base  of  the  function  (FBASE) ,  and  its  ABASE  set 
operand  K.  The  CA  pointer  is  then  pushed  to  VS  with 
IDT. 


A SGN  and  ASGNV  are  operators  corresponding  to  t 
arrow  in  PPL,  but  are  included  as  storage  man 


t  h  the 
a .  The 
mediate 
T,  SGT, 
,  with 
top  and 
field . 
NT,  for 
object 
earched 
e  from 
ET  (an 
1  when 
The 
hich  is 
erand  K 
program 
set  to 
to  the 
the  tag 

he  left 
a  gement 


' 
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instructions  because  they  cause  values  to  be  stored.  The 


top 

of  th 

€  VS  is 

ex 

pecte 

d  to  contain  a 

name 

with  tag 

NPT 

,  or 

a  QS 

desc 

riptor 

poi 

nting 

to  a  segment  c 

ontaining  only 

an 

IA 

instructi 

on.  The 

second  entry  in 

the 

VS  pcints 

to 

the 

segment  o 

f  code 

for 

the 

right-ha 

nd  side 

of 

the  assi 

gnm 

ent . 

Se  ve 

r  al 

actions 

are  t 

aken  by 

the 

DM 

depending 

on 

the 

cont 

e  n  ts 

of  the 

VS. 

The 

i  Hire  dia 

te 

assi 

gn  ment , 

that 

is. 

storage 

o  f 

the 

scalar  v 

a  lue  i 

s  NT,  or 

storage 

of  the 

array  element 

in 

the 

array  in 

M ,  is  d 

one 

under  the  fo 

llowi ng 

sit 

uations . 

A. 

The 

tag  of 

the 

top 

VS  entry 

is  NPT 

and 

the  tag 

of 

t  he 

secc 

nd  top 

VS 

entry 

is  ST. 

B  . 

The 

tag  c 

f 

the 

top  VS 

entry 

is 

SGT,  the  d 

ef erred 

expression 

has 

one 

element. 

and  the  tag  of  the 

se' 

cond 

top 

VS  entr 

y  i 

s  ST. 

C. 

The 

tag  o 

f 

the 

top  VS 

entry  i 

s  NPT,  the  tag 

of 

the 

seco 

nd  top 

VS 

entry 

is  SGT, 

and  the  deferred  seg 

men 

t  is 

either  a  j-vectcr  or  a  single  DA  with  a  reference  count 
of  1  and  a  value  whose  reference  count  is  1. 

If  none  of  the  previous  conditions  are  identified,  then 
an  array  is  to  be  assigned.  If  the  tag  of  the  top  VS  entry 
is  NPT  then  space  is  allocated  for  a  DA  of  the  size 


- 
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necessary  to  store  the  result.  The  assignment  is  then 
deferred  in  the  CS  as  fcr  scalar  arithmetic  operators. 

The  only  case  left  cccurs  when  the  tag  in  the  top  VS 
entry  is  SGI.  The  ranks  and  the  dimensions  of  the  operands 
are  checked  for  ccnfor mability .  If  the  left-hand  operand  is 
a  j-vector,  it  must  be  explicitly  evaluated.  If  the  right- 
hand  side  contains  occurrences  of  various  permutations  of 
the  left-hand  operand,  then  the  right-hand  side  is  evaluated 
to  temporary  space.  Finally,  the  assignment  is  deferred  in 
the  Q$  , 

5.3.2  Control  Instructions^. 

The  DM  control  instructions  alter  the  normal 
instruction  accessing  seguence.  Interpretation  of  J  M  E 
results  in  changing  the  REL  field  of  the  IS  to  the  updated 
instruction  address.  JEP0  and  JKE1  are  interpreted  the  same 
way  only  if  the  top  VS  entry  has  the  value  0  or  1 
respectively.  LEAVE  pops  the  IS,  and  the  IS  if  the  segment 
is  involved  in  an  iteration.  This  in  effect  terminates 
execution  of  that  particular  segment.  RETURN  is  interpreted 
similarly  except  that  the  local  variables  for  the  segment 
are  erased  from  NT. 

Interpretation  of  DC  depends  on  the  value  in  the  top 
entry  cf  the  VS.  If  that  value  is  a  scalar,  then  DC  acts  as 


■ 
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a  no 

-operator . 

If  th 

e 

ta 

g  is 

SGT, 

then 

the 

segment,  pci 

nted 

to 

by  t 

he  V  A I 

UE  f 

ie 

Id 

of 

the 

top 

ent 

ry  of  the  VS 

,  is 

acti 

vated 

by  pus 

hing 

th 

e 

segme 

nt  descriptor 

to  the  IS. 

The 

top 

VS 

entry 

is  t 

he 

n 

popped. 

If 

the 

tag  is  NET, 

the 

corr 

espon 

ding  NT 

tag 

is 

e 

xamin 

ed . 

If  it 

is 

;  FT,  then 

the 

named  function  is  activated.  All  other  cases  act  as  no~ 
operator  . 

A  named  function  is  activated  in  the  following  manner: 


A.  The  segment  descriptor  for  that  segment  is  fetched  and 
is  expected  to  contain  the  INX  values  for  the  result, 
the  parameters,  and  the  local  variables.  It  is  also 
expected  that  all  parameters  to  the  segment  have  teen 
evaluated  and  placed  in  VS  with  the  topmost  entry  being 
the  leftmost  parameter  in  the  API  program  function 
header.  These  ccnditions  are  verified  and  an  error  is 
signaled  if  any  condition  is  not  fulfilled.  If  no 
error  exists,  the  DM  builds  an  NT  entry  for  each  local 
variable  to  the  function.  Each  new  tag  in  NT  is  set  to 
UT  (undefined)  ,  unless  it  corresponds  to  a  parameter. 
As  each  INX  value  is  placed  in  its  NT  entry,  the 
associated  entry  is  popped  from  the  VS. 

B.  A  function  mark  (tag  FMT)  entry  is  pushed  to  VS.  The 
entry  contains  an  encoding  of  the  current  values  of 
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FREG,  ICRG 

,  and 

the  name 

of 

the 

segment 

being 

activated. 

IORG  is  set 

to  the 

ICRG  value 

in 

the  segment  des 

cr iptor 

and  FREG  is 

set  to 

the  VS  index 

of  the  f 

unction 

mark. 

An  entry  is 

pushed 

to  LS  for 

the 

segment 

with  FB 

ASE  set 

to  FVEASE, 

and  the 

process  is 

complete. 

The  EOI  instruction  is  interpreted  the  same  as  the  DC 
instruction  unless  the  top  entry  in  the  VS  has  the  tag  NPT, 
in  which  case,  the  value  referenced  is  copied  to  a  new  space 
in  M .  If  the  tag  is  SGT,  temporary  space  is  allocated  for 
the  result  and  the  segment  is  evaluated.  And  the  segment  is 
evaluated.  The  top  entry  of  the  VS  contains  the  tags  ST, 
JT,  or  FDT  after  a  DOI  instruction  is  interpreted. 

A  RETEBN  instruction  is  interpreted  in  the  following 
manner . 

A.  The  IS  is  pepped,  thereby  de-activating  the  segment. 

B.  The  segment  name,  encoded  in  the  function  mark  on  the 
VS,  is  used  to  access  the  segment  descriptor  and  then 
popped.  The  value  is  pushed  to  the  VS,  and  its  NT 
entry  is  erased  if  there  is  a  result.  All  other  NT 
entries  for  variables  local  to  the  program  segment,  and 
their  values,  are  erased. 

C.  FREG  and  IORG  are  restored  from  the  values  in  the 


if! 
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D. 


function 

mark 

on  VS 

replaced 

bv  the 

result 

FBASE  is 

set  to 

point 

any,  by 

accessing  its 

exposed 

function 

mar  k . 

,  which  is  then  deleted 
,  if  any. 

tc  the  current  active  segme 
segment  descriptor  in  the 


,  and 

nt ,  if 
newly- 


5.3.3  Scalar  Operators . 

The  DM  expects  the  VS  to  have  cne  or  two  entries  for 
the  monadic  or  dyadic  API  scalar  arithmetic  operators, 
respectively.  If  the  two  top  entries  contain  scalar  values, 
the  operation  is  dene  immediately,  leaving  the  result  in  the 
VS  after  popping  both  operands.  That  is,  the  EM  is 
activated  immediately  tc  operate  on  the  VS.  If  one  VS  entry 
contains  a  scalar  value,  it  is  entered  into  the  QS  and  its 
VS  entry  is  replaced  by  an  appropriate  segment  descriptor. 
This  case  becomes  the  case  of  two  segment  descriptors  in  VS. 


When  the  DM  encounters  two  segment  descriptor  entries, 
it  compares  the  ranks  and  dimensions  and  type  of  the  two 
operands  and  signals  an  error  if  they  are  not  cc mf or mafcle . 
Otherwise,  the  operation  is  deferred  in  QS  by  drag-along, 
and  the  top  of  the  VS  is  adjusted  so  that  it  contains  a 
segment  descriptor  pointing  to  the  entire  deferred 
expression  in  the  QS.  The  deferred  code  for  both  operands 
will  always  be  contiguous  in  QS  because  of  the  stack 


- 


1*\ 


discipli 

ne  of  API M .  The 

LINK  field  of  the  QS  entry 

for 

the 

operator 

is  a 

relative 

backwards  pointer  to  the 

earliest 

deferred 

operand 

in  the 

deferred  subexpression. 

The 

AUX 

field  is  the  same  as  that  of  the  tvio  operands. 

5.3.4  Selection  Opeiatois^ 

The  selection  operators  are  evaluated  in  the  EM  by  the 
process  of  beating,  as  explained  in  Chapter  Two.  Briefly 
however,  the  array-valued  operand  is  checked  for 
ccnfor inability.  If  the  operand  is  conformable  and  beatable, 
it  is  beaten  according  to  the  transformation  shown  in 
Chapter  Two.  In  the  process,  the  DA  is  transformed  directly 
if  the  reference  count  is  1.  Otherwise,  a  copy  of  the  DA  is 
beaten.  If  the  result  of  beating  is  a  scalar  value,  the  EM 
is  called  to  execute  the  segment  of  code  in  the  Q$,  and 
leave  the  scalar  result  as  the  top  entry  of  the  VS.  If  the 
operand  of  a  selection  operator  is  not  beatable,  it  must  be 
evaluated  by  the  EM  and  a  temporary  value  must  be  stored. 
The  temporary  value  is  then  beaten. 

5.3.5  Ncn-def err able  Ope r a tor s^ 

This  class  of  DM  operators  contains  those  API  operators 
which  cannct  be  conveniently  deferred,  or  must  be  evaluated 
immediately  by  the  DM  because  they  are  impossible  to  defer. 
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The  p 

rocess  of 

becau 

se  only 

There 

fore,  th 

i  trple 

mentation 

t  ion 

and  pushe 

REP , 

GDU ,  an 

becau 

se  they  r 

entir 

e  operan 

impos 

sible  or 

Since 

the  exec 

of  it 

s  operand 

not 

deferred . 

creat 

ing  the  a 

CAT  K 

instruct 

in  th 

e  VS  and 

M.  These  op 
mentations  and 

It  is  dif 
RAV  and  ERRO  b 
accessed.  Ho 
cases. 


beating  may  not  be  applied  to  those  op 
deferrable  operations  may  be 
ey  are  executed  in  a  manner  similar  to 
s  of  API.  The  DM  evaluates  a  DECODE  i 
s  the  scalar  result  to  the  VS  with  the 
d  GDD  are  evaluated  immediately  by 
equire  complex  calculations  involving 
ds  simultaneously.  These  calculations 
very  difficult  to  do  element-by-e 
uticn  of  DRHO  requires  fetching  the  dim 
,  it  is  easily  done  by  the  DM  and  is  th 
Evaluation  of  DICTA  is  done  by  th 
ppropriate  j-vector.  The  evaluation 
ion  causes  the  DM  to  catenate  the  top  K 
push  the  resulting  array  to  temporary  s 
erations  are  executed  as  in  present 
therefore  are  not  included  in  this  the 


erators 
beaten . 
present 
nstruc- 
tag  ST. 
the  DM 
their 
may  be 
lement. 
ensions 
erefore 
e  DM  by 
o  f  the 
values 
pace  in 
imple- 
sis . 


ficult  for  EM  to  evaluate  the  API  operators 
ecause  arbitrary  elements  of  the  result  may  be 
wever,  DM  can  defer  execution  in  the  following 


A  . 


The  right-hand  operand 
single-element  array. 


of  RAV  and  DRHO  is  a  scalar  or  a 
The  RAV  of  the  operand  is  either 
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a  j-vector  or  an  explicit  one-element  vector.  DBBO  of 
such  a  value  may  be  deferred  in  QS  as  a  load  scalar  (S) 
instruction  followed  by  an  IRD  instruction.  IRD 
contains  the  dimension  of  the  result  in  the  DA  it 
describes,  and  is  used  only  by  the  DM. 

B.  The  right-hand  operand  is  an  expression  deferred  in  the 
form  of  A  above.  The  DA  pointer  is  made  to  point  to 
the  DA  referenced  by  the  deferred  expression. 

C.  The  right-hand  operand  is  an  IFA  instruction  which  has 
net  teen  altered  by  any  selection  operations  which 
change  the  order  of  the  value  part. 

If  none  of  the  above  situations  apply,  then  RAV  and  DBEO  are 
evaluated  immediately  by  the  DM  and  the  results  are  pushed 
to  temporary  space  in  M. 

5.3.6  Subscript  Operator^ 

Upon  encountering  the  SUES  K  instruction,  the  DM 
expects  the  VS  to  contain  a  QS  segment  descriptor  for  a 
rank-K  structure,  and  the  next  K  entries  to  be  either 
scalars  or  QS  segment  descriptors.  Interpretation  of  the 
SOBS  K  instruction  depends  on  the  condition  of  the 
subscript ee. 


A.  Subscriptee  is  beatable.  See  section  2.3  for  methods 
of  beating.  The  subscriptee  expressions  are  examined 


oi 
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14 


i  n 

turn. 

from 

the 

rightmost 

(deepest  in  VS) 

,  to  find 

sea 

lar  v 

alues 

or 

j-vectors. 

If 

found,  for 

example,  in 

coo 

r dinat 

€  I, 

the 

equivalent 

of 

the  I NX  I 

instr  uct ion 

is 

perf  o 

rmed 

cn 

the  subscriptee 

by  beating. 

After  the 

new  DA*s  have  teen  created  by  the  beating  process,  the 


entry 

for 

this  subscript 

is 

deleted 

if  it  was  a 

lar. 

If 

t  h 

e  VS  entry  was  a  j 

-vector,  it 

is  changed 

the 

em 

pty 

segment  and  the 

QS 

entry  is 

deleted  by 

ing  al 

1 

the 

QS  entries  above. 

one 

entry 

toward  the 

QS  base,  with  aprcpriate  adjustments  to  the 
descriptors.  If  the  remaining  stacked  subscriptors  are 
empty  or  non-existent  after  all  subscripts  have  teen 
examined,  the  result  already  exists  in  the  QS .  Then 
the  remaining  empty  segment  descriptors  are  removed 
from  VS  and  the  result  is  the  QS  descriptor  at  the  top 
of  the  VS.  Otherwise,  the  remaining  subscripts  are 
treated  as  non-teatable. 


B.  Subscriptee  is  Non-beatable .  If  the  subscript 
expression  is  explicit  ncn-scalar  or  non- j- vector ,  or 
the  subscriptee  is  not  beatable,  it  must  be  deferred  in 
the  QS.  This  is  done  ty  creating  temporary  index 
accumulators  (operator  XT)  in  QS  and  generating  EM  code 
to  activate  the  subscript  evaluation  at  the  right 
times.  The  QS  contains  the  following  code  before  the 
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expansion 

rank  of 
character 


of  the  subscript  expression,  where  r  is  the 
the  sutscriptee.  The  mask  is  denoted  tv  the 

m . 


VS 


22 


OP  VALUE 


OF  VALUE  LINK  MASK 


«  9 


SGT 


SGT 


SGT 


Code  for  rightmost 

subscript 

mr 

Code  for  leftmost 

subscript 

m  1 

Code  for  subscriptee 

mO 

After  expansion  the  QS  contains  the  following  code 
where  LI,  12,  L3„  ...,  Lr-1,  Lr  are  the  dimensions, 
minus  ,  of  the  sutscriptees.  #2  is  the  QS  index  of 
the  beginning  cf  the  XT  instructions  and  ST  1  points  to 
the  LA  which  contains  the  rank  and  dimensions  of  the 
result.  The  access  mask  of  the  result  is  mr,  and  the 
rank  cf  the  subscriptee  is  used  in  the  initialization 
cf  IA,  IE  A ,  and  Id  instructions. 
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VS 

OP  VALUE 


OP 


VALUE 


LINK 


SGT 


#1 

#2 


JMP 


Cede  for  rightmost 
non-empty  subscript 


•  •  •  • 


Code  for  leftmost 


non-empty  subscript 


Code  for  subscriptee 


XT 


XCODE  (0,11, 1) 


XT  XCOEE  (0  , lr ,  1 )  * 

'calc  subs  1* 

XS  - 

•  •  •••••  •••• 

'calc  subs  r'  < - 


XS 

SG 

#1 

#2 

I  PD 

2T  1 

0 

The  instructions  'calc  subs  K'  are  either 


MASK 


mr 


c  f  the 


f cllowi ng 
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£S 


CP 

VALUE 

LINK 

MASK 

(A) 

•  • 

ISC 

SCCDE  (SEG. k • , 1) 

• 

• 

t 

•  o 

•  •  • 

ra  ' 

(B) 

IXL 

0 

0 

m  * 

in  case 

(A) 

t 

subscript 

K  is  to  be 

cc 

rapu 

ited 

explicitly 

by  act 

ivat 

ing  SEG  K 

•  which 

is 

cn 

e  of  the 

non-empty 

subscr i 

pt  s 

eg 

ments  is 

QS.  In  c 

as 

e 

(B) 

,  th 

e  stacked 

segment 

wa 

s 

empty,  so 

the  actua 

1 

sub 

script  u 

sed  is  the 

same  as 

tha 

t 

which  was 

cont r clli 

ng 

th 

is 

coord 

inate  from 

outside 

thi 

s 

segment . 

The  mask 

m  * 

i 

n 

the 

AUX  field 

specif i 

es  t 

he 

index  envircnment. 

5.3.7  General  Dyadic  For  mu 

When  the  DM  encounters  a  general  dyadic  form  (GDF) ,  the 
right-hand  operand  is  examined  and  evaluated  to  temporary 
space  if  it  contains  deferred  operators.  This  process 
avoids  unnecessary  re-evaluation  of  sub -ex press ions  which 
are  needed  to  compute  a  GDF,  and  guarantees  the  possibility 
of  applying  standard  transforms  to  GDF  expressions  by 
beating.  All  that  remains  to  be  done  is  to  alter  the  access 
masks  in  the  MASK  fields  of  the  deferred  left-hand  operand 
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in  QS  to  provide  the  proper  access  environment  for  the  EM. 
If  one  of  the  operands  is  a  scalar,  the  GIF  is  treated  as  a 
normal  scalar  operator  expression.  If  neither  operand  is  a 
scalar,  the  expanded  EM  code  is  as  follows. 


VS 


OP  VALUE 


OP  VALUE  LINK  MASK 


SGI 


Code 

for  right  operand. 

m  2 

Cede 

for  left  operand. 

ml  ' 

GCP 

OPR 

m3 

IRD 

ST  1 

m3 

OPR  is  the  operator  in 

the 

GDF  and 

ST  1  points 

to  the 

DA 

containing  the  rank  and 

dimensions 

cf  the  result 

.  Masks 

for 

the  operands  and  the 

GOP 

instructions  are  m2. 

ml*  and 

m3. 

where  ml*  is  m2  shifted 

left  by 

the  rank  of 

the  r  i 

ght 

operand,  and  m3  is 

the 

logical 

*  cr  *  of  ml’ 

and  m2. 

The 

segments  must  be  either 

a 

single 

IJ  or  IFA 

instruction 

because  the  operands  may  only  be  simple  array  values. 

5.3.8  Reduction  Operator. 

When  the  RED  K  Cl  instruction  is  encountered  by  the  DM, 
it  examines  the  reducee  for  conf  cr  inability  to  several 
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The  cases  and  their  interpretations 
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special  cases, 
follows : 


are  as 


A.  The  reduction  coordinate  is  empty,  then  the  result  is 

an  array  with  the  value  (  (K*  \  p  pi? )  /  pR  )  pIDENT 

where  R  is  the  reducee  and  IDENT  is  the  identity 
element  for  the  reduction  operator. 

B.  If  the  reduction  coordinate  is  of  length  1,  the  result 

is  i?[  [K~\IORG~]  •  If  the  reducee  is  a  scalar,  the 

result  is  R. 

C.  If  the  reducee  is  a  vector,  the  reduction  is  activated 
immediately  in  the  EM  because  the  result  will  be  a 
scalar. 

If  none  of  these  special  cases  is  found,  the  reductions  is 

deferred  ty  first  performing  the  transpose,  if  necessary. 

The  Q S  would  appear  as  fellows,  before  deferment  in  QS. 

VS  £S 

01  VALUE  OF  VALUE  £INK  MASK 


SGT  — - > 


Cede  for  reducee. 


ml 


After  the  deferral  process 


$ 


the  Q S  would  appear  as  follows. 


- 
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where  OP  is  the  reduction  operator. 


VS 

OP  VALUE 


CP 


VALUE 


LINK 


MASK 


SGT 


FED 


#1 


Code  for  reducee. 


CP 

OPR 

SGV 

#1  i 

s 

-len 

MIT 

IFD 

a)T  1 

B 


m  1 


ra  1 


- 1  m 


the  mask  m  describes  the  rank  of  the  result  and  the  mask  ml 
describes  the  mask  cf  the  operand.  3T1  points  to  the  DA 
which  contains  the  rank  and  dimensions  of  the  resulting 
array.  B  has  the  value  1  if  the  reducee  is  beatable, 
otherwise  C. 


5.3.9  Ranking  Operator^ 

When  the  DM  encounters  the  ranking  operator  (DICTA) , 
the  left  argument  is  expected  to  be  a  simple  vector  array 
value,  and  is  evaluated  immediately.  If  the  rank  of  the 
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result  is  0,  i.e.  The  right  operand  is  a  scalar,  the 
following  expansion  in  the  QS  is  executed  immediately  by  the 
EM,  where  len  is  the  length  of  the  left  operand. 
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£S 

OP  VALUE  LINK  MASK 

.  .  ....  ••• 


Cede  for  right  operand.  m2 


JMP  • - - - 

Code  for  left  operand.  ml 


DUP 

OP 

NE 

JN  1 

PCP 

LVE 

OP 

ADD 

OEG 

SGV 

#1 

S 

len 

MIT 

vxc 

PCP 

IFP 
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5.3.  10  Rotation  Operator. 

The  rotation  operation  (EOT  K) ,  is  a  special  case  of 
subscripting ,  defined  as  follows:  If  H  is  a  scalar,  then 
R+$IK]M  means  for  each  L  ELT  ip M 

i?[  ;/(  (K-l)iL)  ,  (IORG+(pM)im  |  ( N  -  IORG  )  +  i  (  pM )  [  K  ]  )  ,K  +  L1 

where  ELT  is  a  function  defining  occurrences  of  the  left 
operand  vector  as  one  of  the  rows  of  the  right  operand 
matrix,  IOEG  is  the  lower  bound  on  the  subscripts. 

If  N  is  an  integer  array  withp/v^ — ^(iO^ippA/)  /  PM  then 

i?[  ;  /L>M[  ;/  (  (K-liL)  ,  ( IORG+  (  pM)  [£]  |  (#[;/£'  ]  -  )  +  (  pM  )  [X  ]  )  ,KiL~] 

where  L'-*-(K*\ppM) /L  •  The  general  SUBS  K  with  all  but 
coordinate  K  being  IXL,  and  XS  pairs  and  the  coordinate  K 
being  computed  according  to  the  above  definition.  The 
explicit  expansion  will  be  omitted  since  it  is  similar  to 
what  has  already  been  shown. 

5.3.11  Membership  C_per at or^ 

When  the  EM  encounters  the  membership  operator  (EPS) , 
it  examines  the  operands  for  several  special  cases.  If  the 
right  operand  or  the  left  operand  is  a  scalar,  the  result  is 
the  evaluation  of  the  logical  'equal*  operator.  If  the 
right  operand  is  a  single  element  quantity,  the  logical 
’equal'  operator  is  evaluated  using  the  left  operand,  and 
the  first  element  of  the  right  operand.  In  all  ether  cases. 
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E! M  code  is  pushed  to  the  QS  in  the  following  form. 


VS 


op  value 


SGT  — - > 


#2 


2£ 

value 

link 

mask 

JMP 

CODE 

FOE  EIGHT 

OPERAND. 

M2 

CODE 

FOR  LEFT 

OPERAND 

M  1 

■  i  -■  * 

EEC  7 

DUP  2 

SG  #  1 

OP  EQ 

OP  OR 

JNO  2 

LVE 

SG V  #2  f - 

S  LEN 1 

S  IEN  2 


f*T 


S  LENK 

Mil 

vxc 

POP 


IEP 
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5.3.12  CCMEFESS  ANE  EXEAND^ 

When  the  DM  encounters  the  compress  operator  (CMPES) , 
it  expects  the  compressor  to  be  a  logical  vector  which  has 
been  evaluated  tc  temporary  space.  It  also  expects  the 
number  of  loqical  I's,  DIM1,  and  the  index  of  the  position 
of  the  first  non-0  value  in  the  left  operand,  XA,  to  be 
known.  These  values  must  be  known  because  the  rank  and 
dimensions  of  the  result  must  be  kncwn  before  deferral  of 
the  operator.  If  the  compressor  is  either  a  scalar  of  1  or 
0,  or  a  vector  containing  all  I's  or  all  0's,  the  evaluation 
may  be  done  immediately.  However,  all  other  cases  result  in 
EM  code  being  pushed  tc  the  Q S  in  the  following  form,  where 
11,  12,...,lr  are  the  masks  of  the  individual  subscripts. 
The  mask  for  the  compressed  coordinate  is  rrK',  and  XCODE  is 
bracketed.  QaiT  1  points  to  the  EA  containing  the  rank  and 
dimensions  of  the  result. 

When  the  DM  encounters  the  expand  operator  (EXEND) ,  the 
same  situation  as  that  for  the  CMPES  operator  is  expected. 
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VS 


£S 


OP 


VALUE 


OP 


VALUE 


LINK 


MASK 


SGT 


#n 


#6 


#7 


XT 

•  • 

XT 
"iXL 
JNO 
LX  1 
OP 
OP 
JNO 
DUP 
LX  1 
OP 
XS 
SG 
JO 
1X1 
CP 
SX  1 
BPT 
DUP 
SX  1 
LX2 
XS 
PCP 
_L  VE 
1X1 
XS 
•  • 

ISC 

xc 

•  • 

IXL 

XS 

SG 

IFD 


(0  ,  IK  r  1 ) 
(0,1R,1) 


#6 


#  1 

ST  1 


#4 


JMP 

#7 

#1 

Code 

for  ccmpressee. 

ID  2 

#2 

1  Code 

for  compressor. 

m  i  i 

#3 

XT 

(0,XA,0)  1 

#4 

XT 

(0,11,1)  r  « - 

mk 


in  1 


ink 


mr  ' 


mr 
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The  EXEND  operator  is  evaluated  immediately  if  the 
expandor  is  all  1‘s  or  0*s,  otherwise  EM  instructions  are 
generated  as  fellows. 


VS 


OE  VALUE 

•  •  •  •  « 

SGT  - 


■=» 


OP 

VALUE  LINK 

P  ASK 

— 

•  • 

JMP 

•  •  •  • 

•  •  • 

#1 

1  Code 

for  excandee. 

m2 

#2 

1  Cede 

for  exnandor. 

mk '  ' 

#3 

XT 

(LU  ,lu,  1) 

1 

#4 

XT 

(0,11,1) 

r 

#i 

•  • 

XT 

(0,lk,1) 

•  •  •  • 

#n 

•  • 

XT 

(0,lr,  1) 

•  •  •  • 

#3 

LX  1 

mk  * 

OP 

SUB 

OP 

SGN 

JNO 

DUP 

1  1 

LX  1 

#3 

OP 

ADD 

xs 

#3 

SG 

#2 

#3 

JO 

LX  1 

#n 

#5  — * 

OP 

ADD 

XS 

#i 

EPT 

POP 

4 - 

IXL 

ml  • 

•  • 

XS 

•  •  •  • 

#4 

#6 

•  • 

IXL 

•  •  •  • 

mr ' 

XS 

#4 

SG 

#1 

#n 

SG 

#2  < - 

CAS  2 

S  0 

SG  #5 

IFD  #7  mr 
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The  E-Machine 

Chapter  Six 

The  EM  performs  the  evaluations  on  the  operands 
according  to  the  instructions  which  the  DM  has  generated  in 
the  QS.  The  LS  is  used  by  the  EM  to  provide  information 
about  the  location  and  length  of  the  segment  in  the  QS  which 
is  to  be  executed.  The  IS  provides  the  necessary  values  for 
an  element-by-element  execution  process.  The  VS  acts  as  an 
accumulator  or  as  temporary  storage  in  that  all  evaluations 
are  made  on  data  in  the  VS  and  the  result  is  placed  on  the 
VS.  This  very  briefly  describes  the  function  of  the  EM 
within  the  AELM. 

This  chapter  is  written  so  that  the  reader  may  aguire  a 
workable  knowledge  of  the  EM.  More  detailed  information  is 
available  from  a  ccmpanion  thesis  by  W.  F.  Sppleyard. 
Therefore,  this  chapter  is  designed  to  explain  the  operation 
of  the  EM  by  examples  and  by  written  explanations  of  its 
functions. 

6.1  Examples^ 

The  most  common  instruct  ions ,  S,  IFA ,  EA,  IA,  A,  IJ,  J, 
and  OP,  cause  the  values  of  operands  to  be  pushed  to,  popped 


- 
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f  rcm 

or 

cha 

nged 

in 

the 

VS. 

Iwo 

examples  w 

ill  ill 

u  strate 

thei 

r  u 

se. 

Exam 

pie 

1 : 

SUM 

«-5  + 

7  +  8 

Opcode 

Cpe 

rand  (s) 

Cornice 

nts 

S 

8 

Push 

scalar 

value  8 

to  VS 

s 

7 

Push 

scalar 

value  7 

to  VS 

GCP 

AED 

7  t  c 

8  and 

pop  V S 

S 

5 

Push 

scalar 

value  5 

to  VS 

GOP 

AED 

Add  5 

to  15 

and  pop 

VS 

IA 

asu 

M 

Push 

add  res 

s  of  SUM 

to  VS 

OP 

A  SG 

N 

Store 

20  in 

SUM  and 

pop 

2  ele 

ments 

off  the 

VS 

Th 

e  e 

x  pr essi 

cn 

results 

in 

the  ge 

ner ati 

on  of  th 

e  above 

code 

in 

the 

QS. 

L 

cad 

Scalar , 

Sr 

pushes 

the  constant 

to  the 

valu 

e 

stac 

k . 

GO 

E  t 

akes  a 

s  it 

s  operand  one  of  the 

dyadic 

seal 

ar 

ar  it 

hmet 

ic 

oper 

ators. 

OP 

takes 

as  its 

operand 

one  of 

the 

mon 

adic 

sea 

lar 

cpe 

rators . 

1h 

e  operand  of 

GOP  is 

applied 

to  the 

two 

top 

ele 

ment 

s  on  th 

e  VS 

,  and 

the  r 

esult  r 

eplaces 

the 

operan 

ds 

on 

the 

VS, 

A  SG 

N  is 

treat 

ed  as  a 

monadic 

operator  because  the  assignment  is  done  to  the  right  hand 
operand. 


> 


' 


A+B-C 
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Example  2 : 
Opcode 


Operand  (s) 


Comments 


IE  A 


I F  A 


Op 


IA 


OP 


3C r MASK=3 


SB ,  M ASK=3 


SUB 


a A  , M A  SK  =  3 


ASGN 


Initialize  Load  Array 
Element 

Initialize  Load  Array 
Element 

Apply  subtract  operation 
to  VS 


Initialize  Load  Array 
Address 

Store  VS  value 


Assume  that  E  and  C  are  conformable  for 
operation,  and  are  ten  by  ten  matrices.  After 
overflows  for  the  first  time,  that  is,  the  section 
shown  has 
QS  becomes 


the  add 
the  LS 
cf  code 


teen  executed  for  one  element  of  each  array,  the 


' 
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Opcode  ££€randJsX  Comments 

E A  LINK=5,VBASE=100,SUM=10 

FA  LINK=6,VBASE=150,SUM=8 

OP  SUB 

A  LI N  K  =  7 ,  VBASE=325,SUM=0 

OP  ASGN 

NT  Q1=4C,Q2=10,INX-0  ICB  for  C 

NLT  Q1=8,Q2=1 , I NX  =  1 

NT  C1=36,Q2=9,INX=0  ICB  for  E 

NIT  Cl=-8, Q2=-1 ,INX=1 

NT  C1=36,Q2=9,INX=0  ICB  for  A 

NLT  Q1=8,Q2=1 ,INX=1 


The  IF  A  instruction  perforins  the  same  function  for 
arrays  as  S  does  for  scalar  values.  The  IF  A  is  used  to 
initialize  a  Fetch  Array  Element  instruction,  FA,  and  to 
link  the  FA  to  an  Iteration  Control  Block,  ICB,  at  the  top 
of  the  stack  of  instructions.  ICB's  are  explained  in  the 
next  section.  An  FA  instruction  causes  array  elements  to  be 
pushed  to  the  stack.  The  ICB's  control  the  indexing  of 
array  elements.  The  indexing  mechanism  of  the  EM  is 
explained  in  section  6.3.  The  FA  instructions  push  the 
values  at  C[1;1]  and  E[  1  ;  1  ]  to  the  VS.  The  GOP  instruction 
performs  the  suhtraction  and  replaces  the  operands  with  the 
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result.  The  IA  in 
Array  Address,,  IA,  wh 
instruction  pushes 
stack.  The  following 
subtraction  at  the 
assignment  of  A[1;1], 
occurs,  the  IS  is  ste 
segment  cf  code  for 
This  process  continue 
range  of  values  repre 


struction  is  used  to  initialize  a  load 


ich  is  1 

inked 

to 

an 

ICB 

entry . 

Th 

e  A 

the  crem 

cry 

add 

ress 

of 

A[1; 

1]  to 

t  he 

inst rue 

tion 

sto 

res 

the 

result 

of 

the 

memory 

loca tio 

n  of 

A[1 

;i  ]. 

After 

t  he 

the  IS 

overf 

low 

s. 

When 

this 

condi 

tion 

pped  and 

the 

IS 

set 

to 

re-e  xe 

cute 

t  he 

the  elem 

e  nt  s 

C[1 

;2  ], 

B[1 

;  2  ]  an 

d  A[  1 

;2  ]. 

s  until 

the  i 

teratio 

n  ha 

s  cov 

ered 

the 

sented  by  the  IS. 


The  EM  instructions  IJ  and  J  access  j-vectors  and  have 
the  following  formats. 


Opcode 

IJ 

J 


£j9®randjs^ 

JC ODE  (J1 , J2 , J3)  ,  MASK 
XCCDE  (XI, X2  ,X3)  ,  I  NX 


J1  is  the  length,  or  the  number  of  values,  to  be  generated 
by  this  instruction.  J2  is  the  starting  or  ending  value  of 
the  vector,  and  J3  specifies  whether  the  generated  values 
should  start  from  or  decrement  to  J2.  XI  is  the  current 
value.  X2  is  the  starting  value.  The  value  defined  by  the 
instruction  is  X2  ±  XI  depending  on  the  value  cf  X3.  The 
operands  MASK  and  INX  allow  J  to  be  dependent  on  the  index 
environment  as  explained  in  the  next  section. 
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6 . 2  Indexing  ftcn-subscripted  Variables. 


This  section  explains  in  detail  the  mechanisms  which 
facilitate  the  element-by-element  execution  of  a  segment  of 
EM  instructions  in  the  Q S.  The  IS  is  used  to  index  the 
segment  in  the  normal  sequence  and  the  IS  specifies  the 
elements  upon  which  evaluations  are  to  be  made.  Eecall  that 
an  LS  entry  contains  the  starting  address  of  a  segment  of 
code,  ORG,  the  length,  IEN ,  and  a  counter,  PEI,  which  acts 
as  an  index.  The  relevant  flags  are  EE  for  machine  control, 
and  IS  fcr  iteration  involvement.  Also  recall  that  an  IS 
entry  contains  a  counter,  CTF ,  and  a  maximum  value,  MAX, 
which  represents  the  range  of  that  particular  rank 
represented  by  the  entry.  The  relevant  flags  are  EIR,  for 
decrementing  the  CTF,  CH,  for  recording  the  changing  of  the 
IS  entry,  and  MR F ,  for  marking  the  last  level  of  indices 
pushed  to  the  IS. 


The 

valu 

€ 

o 

the  stor 

age 

acce 

elements 

in 

an 

a 

executed , 

th  e 

IS 

i 

evaluation  of 
incrementing  CTR  a 
bit.  If  CTR  does 


f  CTR  in  the  IS  is  used  as  an 
ss  function  tc  access  the 
rray.  Each  time  the  segment  of 
s  stepped  for  the  next  element 
the  segment.  The  IS  is 
t  the  top  of  the  IS  and  marki 
not  overflew,  that  is  CTR  is  1 


ar  gu 

ment 

in 

ind 

ividual 

EM 

code 

is 

-ly- 

element 

stepped 

by 

ng 

the 

CH 

ess 

than 

or 

' 
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equal  to  MAX,  the  stepping  process  is  complete.  If  CTF  does 
over-flow,  it  is  reset  tc  zero  and  the  process  repeated  for 
the  next  CTF  lower  in  the  stack.  However,  if  the  MFK  hit  is 
on  ir  an  entry  that  overflows  ,  the  stepping  of  the  IS  is 
terminated,  and  the  IS  popped.  This  condition  occurs  when 
all  the  elements  of  the  array  have  teen  accessed  that  were 
specified  ty  the  range  of  the  IS.  The  action  of  the  IS  is 
analogous  to  a  set  of  nested  loops.  The  inner-most  loop, 
the  loop  ircrementing  along  the  rows,  is  at  the  top  of  the 
IS.  The  dimensions  of  the  highest  rank  are  located  deepest 
in  the  IS.  The  outer  most  loop  is  marked  with  the  MRK  hit. 
The  highest  rank  that  can  be  handled  is  32. 

The  function  that  the  ICE's  perform  is  the  efficient 
calculation  of  the  storage  access  function.  ICB's  are 
created  in  the  process  of  initializing  an  FA  from  an  IFA 
instruction.  An  IFA  instruction  has  a  32  bit  mask,  the 
maximum  number  of  entries  in  the  IS,  as  an  operand.  A  bit 
turned  on  in  this  mask  determines  the  creation  of  an  entry 
in  the  ICB  group.  The  right-most  bit  corresponds  tc  the  top 
of  the  IS.  In  example  2,  the  mask  selected  the  top  two 
entries  of  the  IS.  In  each  case  the  array  involved  is  of 
rank  2.  The  position  of  the  bit  in  the  mask  determines  the 
value  of  I NX  in  the  ICB.  The  INX  value  is  the  displacement 
from  the  base  of  the  IS  that  corresponds  to  the  ICB  entry. 
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A  zero  bit  in  the  mask  eliminates  that  co-ordinate  from  the 
indexing  of  the  array. 

The  first  operand  of  an  FA  instruction  is  a  link  to  the 
ICB  group  at  the  top  of  the  QS  and  the  second  operand  is  the 
location  of  the  array  in  memory.  The  third  operand,  SUM, 
corresponds  to  the  value  of  the  storage  access  function. 
The  ICB  entries  are  used  to  alter  SUM  each  time  an  FA  or  A 
instruction  is  executed.  The  link  in  the  FA  or  A 
instruction  is  used  to  locate  the  ICB  group.  Entries  in  the 
group  are  denoted  by  the  tag  NT,  and  the  last  entry  has  the 
tag  NLT .  The  INX  value  in  each  ICB  entry  selects  an  entry 
in  the  IS.  If  the  selected  entry  in  the  IS  has  the  CH  bit 
off,  the  next  ICB  entry  is  examined.  If  the  CH  tit  is  on, 
the  CTR  was  changed  when  the  IS  was  last  stepped  and  the 
corresponding  ICB  entry  is  used  in  the  calculation  of  SUM. 


Usually 

it  is  only 

necessary 

to 

use 

the  ICE 

entry 

correspond 

ing  to  the  top 

of  the  IS 

in 

the 

calculati 

cn  of 

SUM.  It 

is  cnly  when  the  entry 

at 

the 

top  of 

the  IS 

overf lows 

that  the  other 

entries  in 

the 

IS 

are 

stepped 

• 

ICB  '  s 

have  entries 

labeled  Q1 

and 

Q2 . 

If 

an  IS 

entry 

is  incremented  on  stepping,  the  C2  value  is  added  to  SUM. 
If  the  IS  entry  overflows,  the  Q1  value  is  subtracted.  The 
value  of  Q2  is  such  that  when  added  to  SUM  it  will  change 
SUM  to  be  the  displacement  of  the  next  column,  row,  plane. 
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etc . 

coord 

co  lum 

the 

along 

overt 


The 

value  cf  Q 1  will  reset  sum 

to  the  beginning  cf 

the 

inate 

.  That  is,  if  S 

UM  has 

i  nc 

remented  across 

the 

ns  in 

a  rcw,  subtracting 

Q 1  from 

SUM 

will  point  SUM 

to 

first 

column  in  that  row. 

Q 2  is 

the 

number  of  elem 

ents 

a  di 

irensicn  cf  an  array. 

When 

an 

entry  in  the 

IS 

lows. 

C 1  is  used  tc  reset 

SUM. 

The  IS  performs  the  same  functions  for  the  AFIM  that  a 
set  of  nested  loops  provides  for  a  program  written  in 
FORTRAN.  However,  the  evaluation  of  the  storage  access 
function  is  optimized  because  of  the  regularity  in  the 
stepping  procedure  of  the  IS. 


6.3  Indexing  Subscripted  Variables^ 


The  ease  with  which  the  IS  can  be  stepped  through  a 
range  of  indices  makes  it  a  very  efficient  method  for 
generating  the  arguments  for  storage  access  functions.  The 
values  of  indices  fcr  subscripted  variables  must  be  fetched 
from  memory  and  placed  in  the  CTR  field  of  a  pseudo- 
iteration  stack.  The  pseudo-iteration  stack  is  kept  in  the 
QS  because  one  is  needed  for  each  subscripted  variable  or 
expression  in  a  QS  segment.  The  fields  in  the  pseudo-IS  are 
labeled  ,  32,  33,  which  are  equivalent  to  the  CTR,  MAX, 
and  CH  fields  cf  the  IS. 

The  pseudo-IS  is  stepped  in  a  manner  similar  tc  the  IS. 
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Where  possible,.  arguments  for  the  storage  access  function 
are  derived  from  the  IS.  The  EH  instructions.  Index  Load 
and  Index  Store,  XL  and  XS,  are  used  to  transfer  the  value 
of  the  CTR  fields  from  the  IS  to  the  pseudo-IS.  The 
Activate  Segment  Conditional  instruction,  ISC,  is 
initialized  to  an  SC  instruction  which  pushes  an  entry  to 
the  LS  which  activates  the  EH.  The  segment  of  code  causes  a 
value  to  he  pushed  to  the  VS.  An  XS  instruction  is  then 
used  to  push  this  value  to  the  XI  field.  A  recursive  method 
for  handling  nested  subscripts  exists  because  the  expression 
may  be  indexed.  The  SC  is  conditional  in  that  it  tests  the 
CH  field  to  determine  if  the  XI  field  of  the  pseudc-IS 
requires  changing.  Example  3  illustrates  the  function  of 
the  IS. 

Example  3 :  A[ I( 0 ;  ] ;  ] 


Operation  Operand  (s)  Com  me  nts 


00 

JMP 

13 

01 

IE  A 

20 , M A  SK  =  4 

02 

IF  A 

21 ,MASK=6 

03 

XT 

XCOEE  (0,4,  1) 

04 

XT 

XCCDF  (0,6,1) 

05 

ISC 

SCODE  (4,1,1) 

06 

XS 

LIN  K=3 

C7 

IX  L 

MA  S  K  =  2 

GN  =  2  GN  -  Group  number 
of  XT 

GN  ignored  for  following 
entries 

MASK=  4  Invokes  IE  A  aJ 
segment 

link  points  back  to  XT 
entry  at  03 

Mask  causes  IXI  to  access 
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Cl R  second  from  the  top 


08 

XS 

1 1 N  K=  4 

Link  points  back  to  XT 
entry  at  04 

09 

SG 

SCCDE  (7,1, 

1)  , II NK=  6  Invokes  T.EA  all 
segment 

1  0 

IT  A 

5)  A ,  M ASK=7 

1 1 

XT 

XCCDE  (0,8 , 

1)  ,  GN=2 

12 

XT 

XCCDE  (0,1 0 

13 

ISC 

SCCDE  (8,5, 

1 )  , M A SK=  2  Invokes  segment 
entries  05  through  09 

14 

XS 

II NK=3 

link  point  at  XT  entry 

1  5 

1  XL 

ft A  S  K=  1 

16 

XS 

IINK=4 

17 

SG 

SCODE  (7,1  , 

1 ) , II NK=  6  Invokes  IE  A  3A 
segment 

Ihe  first  pass  through  the  cede  modifies  it  to  the 
following  form: 


Cperation  £j:e  r  an  dsj£_)_  Comments 


00 

JMP 

1  3 

01 

E  A 

IINK=29,VBASE=100, S0ft=0 

02 

E  A 

IINK=29 ,VBASE=200,S0M=4 

03 

XT 

XCODE  (4,4,  1)  , GN=  2 

04 

XT 

XCCDE  (0,6,1) 

05 

SC 

SCODE  (4,1,1)  , II KK=  0 

06 

XS 

IINK=3 

C  7 

XL 

II N  K= 1 

0  8 

XS 

I1NK=4 

09 

SG 

SCODE  (7,1,1)  , II NK=  6 

10 

E  A 

IINK=23, VBASE=250, SDM=0 

1 1 

XT 

XCCDE  (2,8,1)  , G N=  2 

12 

XT 

XCCDE  (0,10, 1) 

13 

SC 

SCCDE  (8,5,1)  , II NK=  1 

1  4 

XS 

I INK=3 

15 

XL 

II N  K  =  2 

16 

XS 

I IN  K=  4 

17 

SG 

SCODE (7,1,1)  , LI N K=  6 

Code  to  excute  the  rest  of  the  segment  from 
Which  this  example  is  taken. 


30  Nil 

3 1  NT 


Cl  =  4r C  2= 1 , INX=  C 
C1=28,Q2=7,INX=0 


' 
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32 

NLT 

Q 1 =6  r  Q2  =  1 , I NX= 1 

33 

NT 

Cl=88rQ2=1 1,INX= 1 

34 

NLT 

C 1  =  10 , Q2= 1 rINX=2 

This  APL  sub- expression  ir  seme  unspecified  expression 
caused  the  above  expansion  cf  code  in  the  QS.  The  ranks  of 
A ,  I,  and  J  are  9  11,  5  7,  and  2,  respectively.  The  initial 


values  contained 

in  IS  and 

IS  are: 

PEL 

OPG 

FLAGS 

LEN 

£P 

Top  cf  IS 

0 

0 

110 

17 

11 

CTF 

FLAGS 

MAX 

0 

011 

1 

0 

010 

6 

Top  cf  IS 

0 

010 

10 

The  IS  initiates  the  segment  of  code  between  locations 
0  and  17.  The  JMP  instruction  at  location  0  modifies  the  LS 
PEI  field  to  value  13.  The  ISC  instruction  at  location  13 
is  initialized  to  SC  which  pushes  to  the  LS  an  entry 
invoking  the  QS  code  to  evaluate  the  subscript. 

The  following  IS  entry  invokes  execution  of  the 
instructions  at  locations  5  through  9. 


EEL 

OEG 

FLAGS 

LEN 

14 

0 

110 

17 

1 1 

of  IS 

0 

5 

1101 

5 

3 

* 


. 
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the 

CP  field  is  set  to 

indicate  the 

pseudo-IS  for 

the 

invoked  segment.  The 

ISC  instruction 

at  location  5 

initializes  and  pushes  to 

the  LS,  code 

to  evaluate  the  inner 

subs 

cript. 

The  CS  segment  descri 

bed  by  the  following  LS  entry 

is 

the 

I I A  instruction  at  location  1. 

PEI 

OF  G  FLAGS 

LEN 

0 

0  1  10 

17 

1 1 

1 

5  1001 

5 

3 

Top  of  IS  0 

1  1001 

1 

0 

this 

instruction  pushes  the  first  value 

of  J 

to  the  VS. 

The 

LS 

overflows  and  is  popped  if  its  IS 

field  indicates 

that 

the 

IS  does  not  ha^e  ccntrol.  Excution 

resumes  at  location 

6.  The  X S  instruction  links  back  to  an  XT  entry  and  fills 
in  its  XI  field.  The  following  XI,  XS  pair  use  the  IS  to 
fill  in  the  following  XT  entry.  The  SG  invokes  the  single 
instruction  at  location  2,  using  the  LS.  The  IFA  at 
location  2  initializes  and  pushes  the  first  subscripted 
value  to  the  VS.  The  top  two  entries  in  the  LS  are  then 
popped  because  bcth  overflowed  and  execution  resumes  at 
location  14.  There  is  new  cne  entry  in  the  IS.  The 
instructions  at  locations  14  through  17  are  executed  in  much 
the  same  way  as  these  in  locations  6  through  9  with  the 
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following  exception.  When  the  IS  overflows,  its  IS  field 
indicates  that  the  IS  is  to  be  stepped.  PEL  is  reset  to 
zero,  and  the  segment  re-executed.  Modifications  to  the 
method  of  handling  subscripted  expressions  which  permit 
handling  cf  non- subscripted  expressions  are  a  mechanism  to 
fetch  values  from  subscripts  and  the  addition  cf  pseudo-IS 
stacks  to  contain  them. 

6  •  4  ll an sfer_. 

The  instructions  for  transferring  control  are  the  jump 
instructions,  JME,  JO,  J1,  JNO,  JN 1 .  J MP  N  is  an 
unconditional  jump  to  an  instruction  which  is  N  forward  from 
the  JUMP.  0  or  1  in  the  ether  instructions  indicate  that 
the  instruction  is  conditional  on  the  value  of  the  VS  being 
0  or  1.  JO  and  J1  pop  the  top  entry  of  the  VS,  as  well  as 
execute  the  jump  cctr.mand. 

CY,  IVE,  FPT  and  CAS  perform  the  functions  cf  CYCLE, 
LEAVE,  REPEAT  and  CASE.  CY  causes  the  IS  to  overflew  which 
in  turn  steps  the  IS  and  repeats  the  segment  if  the  IS  does 
not  overflew.  IVE  simply  pops  the  IS,  de-activating  the 
current  segment.  RFT  resets  REL  to  0.  R FT  is  similar  to  CY 
but  does  not  step  the  IS.  CAS  N,L  invokes  a  single 
instruction  at  displacement  N  forward  from  the  current 
location.  If  the  invoked  instruction  pushes  an  entry  to  the 


\ 
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LS  then  a  new  segment  can  be  initiated.  Execution  resumes 
at  displacement  I  from  CAS  when  the  current  LS  entry  is 
again  at  the  top  of  the  LS. 
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Sa triple  Expression 


Chapter  Seven 


In 

order 

to  explain 

more  fully 

the 

operation  of  the 

AFT.M,  this  cha 

pter  takes  an 

arbitrary 

API 

expression  and 

shows 

hew  the 

AF1M  translate 

s  the  expression,  step-by-step. 

into  machine  executable  instructions.  The  following  All 
expression  is  used,  not  because  it  is  a  useful  algorithm, 
but  because  it  illustrates  application  of  the  basic  concepts 
of  the  API M . 

F+-1t£>-4x  (Z)*2  )\Co  .xB+A 

It  is  assumed  that  the  arrays  are  defined  and  conformable 
for  the  operations  applied  to  them.  Section  7.1  describes 
the  process  of  compiling  a  program  segment  for  the  API 
expression.  Section  7.2  shows  the  step  by  step  interpretive 
procedure  of  the  E  V. . 

7.1  Compilation  by  CM . 

The  CM  compiles  API  programs  into  program  segments 
which  serve  as  object  modules  for  the  EM.  This  expression 
is  assumed  to  be  a  statement  in  an  API  program,  therefore. 


it  will  be  compiled  into  a  series  of  EM  instructions 


within 
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a  program  segment.  These  instructions  will  he  represented 
internally  hy  their  hexadecimal  cedes  in  a  string  form.  As 
the  CM  encounters  each  named  array,  a  search  of  the  name 
index  table  (NTT)  is  initiated.  The  name  of  the  array  is 
then  replaced  by  a  load  instruction  whose  operand  is  the 
index  value  (INX)  of  the  position  of  the  name  in  NIT.  The 
load  instruction  is  IDNF  if  the  array  is  to  be  processed, 
and  TEN  if  the  array  is  to  be  assigned  values.  The  monadic 
operators  are  replaced  by  the  MCNAEIC  instruction  whose 
operand  is  the  monadic  APL  operator.  Dyadic  operators  are 
treated  similarity.  Specification  operators  are  replaced  by 
the  MCNAEIC  instruction  whese  operand  is  A SGN  or  ASGNV,  a 
destructive  cr  nen-des tructi ve  assignment  respectively. 


Scalar 

values 

are  replaced 

by  the 

IDS 

instr uc 

t  ion  , 

whose 

operand 

is  the 

scalar  value. 

The  resultin 

g  progr 

am  se 

gment 

is  fell 

ows , 

where  2AFBAY 

is  the 

INX 

value  c 

f  the 

arr  ay 

A  HP  AY . 

CICCEE 

CPEF AND 

LDNF 

aA 

IE  NE 

2  E 

EYAEIC 

ADD 

IDNF 

aC 

GEF 

MELT 

IES 

2 
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IDNE 

2D 

DYADIC 

EOWEF 

TAKE 

IDS 

4 

DYADIC 

MUIT 

MCNADIC 

MINOS 

IDN 

2E 

CE 

ASGNV 

IDS 

1 

DYADIC 

DIVIDE 

ID  N 

2F 

CE 

ASGN 

7 . 2  Interpretation  bp  DM_. 


The  DM  accesses  instructions  in  the  program  segment, 
interprets  them  and  generates  EM  instructions  in  the  Q S. 
Assume  that  the  DM  is  in  the  process  of  interpreting  the 
pregram  segment  and  all  the  previous  instructions  have  been 
executed.  The  remainder  of  this  section  has  the  following 
format.  Each  sufc-section  states  the  action  of  the  EM  from 
the  previous  sub-secticn  tc  the  current  sub-section,  if  any, 
and  also  states  the  current  action  of  the  DM.  Each  sub- 
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section  is  preceded  by  a  display  of  the  contents  of  the  VS 
and  Q  S ,  if  and  after  ccntrcl  is  returned  by  the  EM.  Each 
sub-section  is  followed  by  a  display  of  the  contents  of  the 
VS  and  QSr  after  ccntrcl  is  passed  to  the  EM  by  the  DM. 

Step 


VALUE 

CE 

VALUE  LINK 

MASK 

•  • 

•  ••••  •••• 

•  •  t  • 

The  DM  encounters  the  LDNF  A  and  pushes  an  IF A 
instruction  which  initializes  the  process  for  accessing  the 
array  A.  The  VS  entry  is  made  to  point  at  this  first 
instruction  of  the  new  CS  segment.  The  VALUE  field  points 
to  the  EA  for  A  and  MASK  (#) ,  is  a  32-bit  vector  whose  last 
n  bits  are  1 ,  where  n  is  the  rank  cf  the  array  A.  Cne  entry 
for  each  dimension  of  the  array  A  is  pushed  to  the  IS,  which 
is  used  by  the  EM. 

VS 

OP  VALUE  OF 


SGT  - - *  I F A 


VALUE  LINK  MASK 

•  ••••  •  •  •  •  •••• 

a)  A  #  A 
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S  t  €£  2_. 

A  procedure  similar  tc  step  one  is  used  for  the 
instruction  LDNF  P.  When  the  DYADIC  ADD  is  encountered,  the 
IS  entries  for  the  array  B  are  compared  tc  those  for  array  A 
for  AID  ccnf ormatility .  If  conformable,  the  IS  entries  for 
the  array  B  are  popped,  the  VS  is  popped,  and  a  GCP  ADD 
instruction  is  pushed  tc  the  CS. 


VS  £S 


OP 

VALUE 

OP 

VALUE 

LINK  MASK 

•  • 

SGT 

•  • 

— - *  IF  A 

«  •  •  •  • 

a)  A 

•  •••  •  •  •  « 

#  A 

IF  A 

SB 

#  B 

GCP 

ADD 

Step  3_. 

A  procedure  similar  to  step  one  is  followed  for  the 
instruction  LDNF  C.  When  the  GDF  MULT  is  accessed,  the 
following  process  is  appled.  First,  if  either  of  the  top 
two  VS  entries  contains  an  SI  flag,  a  lead  scalar 
instruction  is  inserted  in  the  QS  and  the  VS  entry  is 
changed  tc  an  SGT  pointer,  pointing  to  the  lead  scalar 
instruction  in  the  QS .  However,  such  is  not  the  case. 


Hi 
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Secondly,  if  the  left  hand  operand  (LHC)  contains  a  deferred 
operator,  it  must  te  evaluated  tc  temporary  space.  However, 
such  is  not  the  case.  Thirdly,  if  the  right  hand  operand 
(P HO)  contains  a  deferred  operator,  it  must  be  evaluated  to 
temporary  space  to  avoid  unnecessary  repetitive  calcu¬ 
lations.  Such  is  the  case.  An  IS  entry  is  generated,  and 
the  instruction  pointer  in  the  program  segment  is  made  to 
point  tack  at  the  IBNF  C  instruction.  The  VS  is  popped,  the 
top  QS  segment  is  popped,  and  the  EM  is  called  to  evaluate 
the  QS  segment  to  temporary  space,  labelled  TEMP. 


VS 

OF  VALUE 


SGT 


Step  4^ 

VS 

OP  VALUE 


SGT  - - - * 


OF 

VALUE  LINK 

mask 

®  ® 

IF  A 

o  e  •  «  «  o  «  •  • 

SA 

•  •  0  ® 

#  A 

IF  A 

SB 

#  E 

GCP 

ADE 

OF 

VALUE  LINK 

mask 

•  a 

I F  A 

•  «  •  o  o 

STEMP 

•  •  ©  • 

#TEMP 
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The  EK  evaluated  the  top  QS  segment  to  temporary  space 
and  the  above  entries  are  inserted  by  the  procedure  which 
returns  control  to  the  DM.  The  EM  pushes  an  IFA  instruction 
for  the  LENF  C  instruction  and  then  encounters  the  GEE  MULT 
instruction  again.  This  time,  both  operands  are  arrays, 
i.e.  Both  segments  contain  only  IFA  instructions.  The 
arrays  are  checked  for  ccnf ormability  to  the  outer  product 
operation.  If  they  are  conformable,  the  mask  for  the  LHC  is 
shifted  to  the  left  n  bits,  where  n  is  the  rank  of  the  5H0. 
A  GOP  MULT  instruction  is  pushed  to  the  QS  and  the  VS  is 
popped.  In  this  case,  the  mask  for  C  is  denoted  as  #TEMP*. 


VS 

OP  VALUE 

OP 

VALUE  LINK 

MASK 

SGT  . - 

•  « 

- >  IFA 

•  e  •  •  • 

STE  MP 

•  •  •  • 

#TEMP 

IFA 

SC 

#TE  MP ' 

GCP 

MULTIPLY 

_S  t  €£  5_. 

The  EM  encounters  the  LES  2  instruction  and  pushes  the 
scalar  value  to  the  VS  with  tag  ST.  The  EM  also  pushes  an 
IFA  instruction  to  the  QS ,  with  an  SGT  pointer  in  the  VS, 
for  the  LEAF  D  instruction. 
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vs  £s 


OP  VALOR 

OP 

VALUE  LINK 

MASK 

SGT 

- > 

•  • 

I F  A 

«««•«  •  •  •  • 

3TFMP 

•  •  •  • 

#TF  MP 

IF  A 

SC 

#TFMP ' 

GOP 

MULTIPLY 

SGI  . _ 

- > 

S 

2 

SGT  _ _ 

- > 

IF  A 

3D 

#D 

Step)  6_. 

When  the  DM  encounters  the  DYADIC  POWER  instruction,  it 
notices  that  the  BHC  contains  a  scalar  value.  The  DM 
inserts  an  S  instruction,  load  scalar,  in  the  QS  and  changes 
the  VS  entry  to  an  SGI  pointer.  If  the  segments  are 
conformable  for  the  dyadic  operation,  the  DM  pushes  a  GOP 
POWER  instruction  to  the  QS,  and  pops  the  VS. 


. 
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VS 

£S 

OF  VALUE 

CF 

VALUE  LINK 

MASK 

SOT 

«  • 

_ >  IE  A 

•  ••••  •  •  •  • 

aTEMP 

•  •  •  • 

#TE  MP 

I  E  A 

a  C 

#TE  MF f 

GCP 

MULTIPLY 

SGT  . _ 

- *  s 

2 

IF  A 

a  d 

#D 

GCP 

FOWEF 

Step  7_. 

When  the  DM  encounters  the  TAKE  instruction,  it  checks 
if  the  LHO  is  an  array.  If  it  is  not,  the  EM  is  called  to 
evaluate  the  IHC  to  temporary  space,  labelled  TEMF2.  The 
instruction  pointer  to  the  pregram  segment  is  set  back  to 
point  to  the  TAKE  instruction  again. 


VS 

OP  VALUE 

OP 

VALUE  LINK 

MASK 

SGT 

•  • 

- >  IF  A 

•  ••••  •••• 

STEM  F 

•  •  •  • 

#T  E  MP 

IF  A 

ac 

#TE  MP ' 

GCP 

MULTIPLY 

SGT 

- >  IE  A 

aTEMP2 

#TEMF  2 

- 

112 


Step  8._ 

The  EM  evaluated  the  top  segment  to  TEMP2  and  returned 
control  tc  the  DM,  setting  up  the  IFA  ?>TEMP2  instruction. 
The  DM  then  heats  the  operands  in  the  second  segment  hy 
applying  the  transformations,  listed  in  chapter  2,  to  the 
DA's.  The  VS  is  then  popped  and  the  top  segment  is  popped 
from  the  C-*  The  character  %  symbolizes  a  beaten  EA  and  the 
corresponding  mask. 


VS 

OP  VALUE 

OF 

VALUE  LINK 

MASK 

SGT 

•  • 

- ^  I  E  A 

«  •  •  •  •  «  •  •  9 

STEMF% 

•  •  •  • 

#TE  MF% 

IE  A 

C% 

#C3 

GOF 

MULTIPLY 

_S  t  ep  S_. 

The  DM  then  encounters  the  IDS  4  instruction  which 
results  in  the  generation  of  a  VS  entry  with  tag  ST  and 
whose  value  is  set  tc  4.  The  DYADIC  MULT  instruction  is 
encountered  and  a  procedure  similar  to  that  in  7.2.6  is 
followed.  A  GCF  MULT  instruction  is  pushed  to  the  £S  for 
the  MCNACIC  MINUS  instruction. 


1  13 


VS 

£S 

OP  VALUE 

OF 

VALUE  LINK 

MASK 

SGT 

•  • 

_ ^  IE  A 

«•««•  <®  ©  *•  • 

STEM  P% 

•  •  •  « 

#TEMP$ 

I F  A 

C% 

#C^? 

GOP 

MULTIPLE 

S  4 

GOF  MULTIPLE 

OF  MINDS 

IA  a)E 

OF  ASGNV 

Ste£  J0Z 

The  DM  encounters  the  IDN  E  instruction  and  pushes  as 
IA  instruction  to  the  QS.  Space  is  allocated  for  the 
resulting  array  E,  and  its  descriptor  when  the  ASGNV 
instruction  is  accessed.  An  CF  ASGNV  instruction  is  pushed 


to  the  OS 
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VS 

OP  VALUE 

CP 

VALUE  LINK 

MASK 

SGT  * _ 

_ ^  I  F  A 

5)TEMP% 

#TE  KP% 

I F  A 

C% 

GCP 

MULTIPLY 

S 

4 

GOP 

MULTIPLY 

OF 

MINUS 

IA 

as 

OF 

ASGNV 

St€£  Jlj, 

When  the  IDS  1  in str nation  is  encountered  and  the 
DYADIC  DIVIDE  instruction  is  encountered,  a  procedure 
similar  to  that  in  7.2.6  is  followed.  The  LDN  F  and  ASGN 
instructions  result  in  the  same  type  of  QS  instructions  as 
in  7.2.10.  The  configuration  of  the  QS  would  be  as  follows 
after  the  ASGN  instruction  has  been  interpreted. 


- 
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VS 

OP  VALUE 


£S 

CP  VALUE  LINK  MASK 
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APLM  Simulation 

Chapter  Eight 

A  simulation  of  the  APLM  has  been  undertaken  by  the 
author  and  W .  F.  A ppleyard .  A  subset  of  API  has  been 
implemented  on  an  I. E . M . 3 60/67 ,  in  360  ASSEMBLER,  using  the 
Michigan  Terminal  System.  Appleyard  has  implemented  the  EM 
and  the  author  has  implemented  the  DM.  The  APLM  initializes 
arrays  of  data  and  program  segments  by  reading  them  in 
because  the  CM  has  only  been  outlined,  not  implemented.  The 
remaining  sections  of  this  chapter  contain  a  brief 
introduction  tc  the  program  units,  and  their  flow-charts, 
where  applicable.  Eaeh  section  refers  to  an  appendix  in 
which  the  programs  for  that  unit  are  listed. 


8 • 1  M cnit c r  and  Initializers. 


The  supervisor  of  the  APLM  is  called  MONITOR,  and 
serves  tc  initialize  and  pass  ccntrol  to  the  other 
initializers,  the  EM,  and  the  EM.  All  listings  described  in 
this  section  are  given  in  appendix  A. 


The  initializers  and  their  functions  are  as  follows. 
SPECARR  reads  in  arrays  of  data  and  assigns  space  in  memory 
.  SPECLS  generates  an  entry  in  the  location  stack 


for  them 


which  causes 


the  DM  to  begin  interpretation  of  the  p 
segment  whose  address  was  pushed  to  the  location 
These  programs  are  not  pertinent  to  the  concepts  cf 
along  and  leating,  and  therefore  are  only  listed,  not 
charted. 

The  principal  initializer,  as  far  as  the 
concerned,  is  DMACCCDE,  which  allocates  space  for  s 
descriptors  and  reads  in  their  program  segment 
simplified  flow-chart  for  DM ACCODE  is  contained  in 
8.  1 . 


8.2  M a incy cle_. 
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8 • 3  E- Machine^ 

The  principal  unit  in  the  simulation  of  the 
called  DMACRINE.  This  program  accesses  DM  instructio 
the  normal  accessing  sequence,  does  seme  basic  analysi 
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passes  ccntrol  to  the  corresponding  interpretive  procedures 
for  that  particular  type  of  instruction.  Control  is  then 
passed  tack  to  CM  by  the  interpretive  procedures.  The 
listing  appears  in  appendix  C,  and  a  simplified  flow-chart 
is  contained  in  figure  8.3. 

8 . 4  lead  Instructions . 

The  interpretive  procedures  for  the  DM  instructions 
IDS,  IESFG ,  IDO,  and  ID  N ,  are  embodied  in  a  program  labelled 
LOAD.  This  program  fetches  the  required  value  or  name  and 
pushes  it  to  the  value  stack  with  the  proper  environment. 
The  listing  appears  in  appendix  E. 

8.5  Ccntrol  and  Stcraqe  Access . 

The  procedure  named  INF  provides  the  access  linkage  for 
array  operands.  INF  stands  for  ’load  name  and  fetch  array 
value'. 

The  procedures  which  implement  JMP,  JMPO,  and  JMP1,  are 
combined  in  a  program  labelled  JMP.  These  instructions 
cause  changes  in  the  normal  instruction  accessing  sequence. 

The  listings  cf  pregrams  described  in  this  section  are 
contained  in  appendix  E.  The  algorithms  are  straight¬ 
forward  and  are  therefore  not  flow-charted. 


■ 
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8 . 6  Scalar  Arithmetic  Operators. 

The  interpretation  of  all  monadic  and  dyadic  scalar 
arithmetic  operators  is  done  in  a  program  labelled  MEAEIC. 
This  program  undertakes  conf ormability  checks,  generation  of 
EM  instruction,  and  decisions  about  transfer  of  control.  A 
simplified  flow-chart  is  contained  in  figure  8.4. 

The  implementation  of  outer  products  is  undertaken  by  a 
program  labelled  GDF ,  for  general  dyadic  form. 
Confoimability  checks,  and  EM  calls  for  evaluation  to 
temporary  space  are  made  by  GEF.  A  simplified  flow-chart  is 
contained  in  figure  8.5. 

ASGN  and  ASGNV  are  implemented  by  a  program  labelled 
A  SGN .  A  simplified  flow-chart  is  contained  in  figure  8.6. 

All  the  programs  described  in  this  section  are  listed 
in  appendix  F. 

8 . 7  Selection  C_per  a  to  r  s± 

Selection  operations  are  evaluated  by  the  program  named 
SEIECT.  This  program  implements  TAKE,  DROP,  REV,  and  TRANS, 
by  beating  the  operands  of  these  operators.  A  simplified 
flow-chart  is  contained  in  figure  8.7,  and  a  listing  is 
contained  in  appendix  G. 
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8 . 8  Fr ocjr ajr  Constant^ 

Appendix  H  contains  a  listin  og  the  macros,  equates, 
and  all  the  constants  used  in  the  simulation  of  the  DM  by 
the  author,  and  the  EM  by  Appleyard. 
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READ  IN  EM  INSTRUCTION 


YES 


NC 


DMACCODE  FLOW-CHART 


Figure  8 
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MAINCYCL  FLCW-CHAFT 


Figure  8.2 
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DMACHINE  FLOW-CHART 


Figure  8.3 


. 
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MDADIC  FLOW-CHART 


Figure  8.4 
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GCF  FL0W-CHAF1 


Figure  8 . 5 
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ASGN  FLOW-CHAFT 


Figure  8.6 
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NC 


YES 


YES 


SELECT  F1CW-CHABT 


Figure  8.7 


128 


Conclusions 


Chapter  N 

ine 

This  chapter  summarizes 

the 

APLM 

and 

outlines 

extensions  and  refinements  of 

the 

research 

and 

simulation 

already  done. 

9 . 1  Summary^ 

Abrams  has  shewn  that  APL  expressions  containing  cnly 
selection  and  reduction  operations,  and  inner  and  outer 
products,  may  be  reduced  to  a  simpler  set  of  operations  on 
the  same  operands.  He  developed  the  theoretical  basis  for  a 
machine  which  could  do  those  reductions  by  a  well-defined 
set  of  transformations,  which  are  applied  to  the  storage 
access  functions  of  the  operands.  He  further  stated 
conditions  for  which  those  transformations  could  he  applied. 
He  alsc  outlined  a  stack  oriented  machine  which  could 
theoretically  implement  those  transformations. 

The  author  has  implemented,  by  simulation,  a  sub-set  of 
the  machine,  the  DM,  which  analyzes  monadic  and  dyadic 
scalar  arithmetic  operators  and  selection  operators  and 
outer  products.  The  implementation  of  this  sub-set 
illustrates  the  theoretical  basis  for  the  machine  and 


. 
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interfaces  directly  with  the  execution  sub-set  cf  the 
machine,  EM,  written  by  Appleyard.  Another  sub-set  has  been 
outlined,  the  Cfl,  which  compiles  programs  into  program 
segments . 


The 

system 

culined 

by 

Abrams  indicated 

that  outer 

products 

could  be 

included 

in 

the  class  of  operat 

ions,  which 

could  be 

transformed,  cnly 

if 

both  the  right  and 

left-hand 

operands  are  array  values.  Analysis  of  the  outer  product 
operation  shewed  that  only  the  right-hand  operand  should  be 
an  array.  The  left-hand  operand  may  be  an  array-valued 
expression.  The  right-hand  operand  has  all  its  elements 
accessed  fer  each  access  cf  an  element  of  the  left-hand 
operand.  It  is  therefore  more  efficient  to  evaluate  the 
right-hand  operand  to  temporary  space  befor  performing  the 
cuter  product  operation.  The  left-hand  operand  has  each  of 
its  elements  accessed  only  once,  therefore  it  is  more 


ef  f  ic 

ient 

not  to  ev 

aluate  it  tc 

tempo 

rary  sp 

ace . 

This 

exten 

sion 

allows  c 

uter  product  o 
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ons  to  b 

e  deferred, 

and  b 

e  a  te 

n,  after  a 

maximum  of  c 

ne  im 

mediate 

e  valu 

at  ion 

ccmpa 

red 

with  a  maxi 

mum  of  two,  as 

indica 

ted  by  A 

br ams  . 

The 

simulation 

includes  the 

i  m  pi 

ement ati 

on  of 

the 

monad 

ic 

and  dyadic 

scalar  arith 

me  tic 

operato 

rs. 

outer 

products , 

and  the 

operations  ta 

ke ,  d 

rop,  re 

vers  al 

and 

trans 
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.  The  inpl 

ementation  of  these  o 

perato  rs 

is 
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by  the  processes  cf  drag-along  and  beating,  and  therefore  is 
included.  Operations  such  as  inner  products  are  similar  to 
previously  mentioned  operations,  and  are  therefore  not 
included.  The  operators  which  must  be  executed  immediately 
do  not  facilitate  drag-along  and  beating  and  are  not 
included  because  they  would  differ  little  from  present 
implementations.  The  remaining  operators  are  not  simulated 
because  they  do  not  further  illustrate  the  processes  of 
drag-along  and  beating,  however  their  descriptions  and 
methods  of  implementation  are  contained  in  the  thesis. 

9 . 2  Extensions  and  refinements. 

As  in  present  implementations,  the  addition  of  bulk  I/O 
would  increase  accessibility  to  the  problem-solver.  The 
addition  cf  secondary  storage  would  greatly  increase  the 
capacity  cf  the  system  for  data  and  programs  alike.  Several 
logical  units  cf  the  system  are  often  used  for  routine 
tasks,  such  as  the  NT  search  unit.  The  indexing  unit,  which 
determines  the  location  of  an  element  in  an  array  using  the 
storage  access  function,  is  used  frequently  and  therefore 
should  be  as  efficient  as  possible.  MAINCYCL  should  also  be 
very  efficient.  Therefore,  research  should  be  carried  out 
on  implementing  these  units  by  micro-program,  thereby 
reducing  the  overhead  at  execution  time  in  terms  of  central 
processor  requirements. 
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Future  invest igation  would  be  well  spent  on  examination 
of  the  processes  for  the  beating  of  general  subscripted 
expressions.  Although  subscripting  was  net  implemented  in 
this  simulation,  it  was  found  that  subscripted  expressions 
can  be  beaten  by  beatirg  the  components  of  the  subscripted 
expression.  Abrams  stated  that  subscripted  expressions 
could  be  beaten  only  if  the  subscriptee  itself  is  beatable. 
Investigation  by  Appleyard  and  the  author  have  shown  that  a 
subscripted  expression  may  be  beaten  if  the  individual 
components  of  the  subscriptee  expression  are  beatable.  This 
condition  applies  to  the  selection  operators  take,  drop,  and 
reverse,  but  only  to  transpose  under  certain  circumstances, 
which  are  further  described  in  Appleyard's  thesis.  For 
example,  3  4  5  +  MIA ;B ; C 1++MI ( 3 \A )  ; ( 4 \B )  ;  ( 5  +  C ) ] 

The  take  operation  cculd  therefore  be  accomplished  by 
beating  the  components  of  the  subscriptee  by  the  elements  of 
the  take  operand,  rather  than  the  calling  of  the  EM  to 
evaluate  the  subscriptee  to  an  intermediate  result.  This 
extension  further  minimizes  unnecessary  evaluations  to 
execute  programs  written  in  AFI. 
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SPECIS 


INITIALIZERS 
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LISTING. 
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TITLE 

"TEE  MONITOR ' 

ENTRY 

MONITOR 

MONITOR 

ES 

OH 

* 

B 

START  (, 15) 

*  INITIALIZAT 

ION  OF  AFIM  CONSTANTS 

ES 

OD 

MONISAVE 

EC 

9C  '  FRCGSA VE ' 

FROGSAVE 

DC 

A  (CCRELCW-4) 

MEMADDR 

EC 

IF*  O' 

ARRAVAIL 

DC 

A  (*-4,*-8) 

DC 

1 F  1  0  * 

E AA VAIL 

DC 

A  (*-4,*-8) 

DC 

A  (CCRELCW) 

EOTTPOOL 

DC 

A  (COBEHIGH) 

TOPPOOL 

DC 

A  (DS  1 1 ) 

ISMARK 

DC 

1  F  *  0  *  QSCNTBL 

* 

DC 

ID'  0  ' 

DBL 

DC 

C’SAVEAFR  * 

EC 

A (DS 12) 

ISEND 

DC 

A  (DS1 1) 

I  STOP 

DC 

A  (DS1 1) 

ISSCAN 

DC 

A  (DS1 1-ISWIDTH)  ISEASE 

DC 

A  (DS22) 

LSEND 

DC 

A  (DS21) 

ESTOP 

DC 

A  (DS2  1) 

LSSCAN 

* 

DC 

A (DS2 1-LSWIDTH)  LSBASE 

DC 

A  (DS32) 

QSEND 

DC 

A  (DS 3  1 ) 

QSTCP 

DC 

A  (DS3  1 ) 

CSSCAN 

* 

DC 

A  (DS3  1 ) 

QSBASE 

DC 

A  (DS  4  2) 

VSEND 

DC 

A  (DS4  1 ) 

V  STOP 

DC 

A  (D S  4  1 ) 

VSSCAN 

$ 

DC 

A  (DS4 1-VSWIDTH)  VSBASE 

EC 

A  (DS212) 

NTEND 

DC 

A  (DS  2 1  1) 

NTTOP 

DC 

A  (DS21 1) 

NT  SC A  N 

DC 

A (DS21 1) 

NTEASE 

DC 

1 F  *  0  * 

* 

DC 

2F  *  0  • 

VST, 

DC 

1 Y*C0* 

new: 

!RR  AND  VSTYPER  R 
AND  STEFTOG 
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CORELOW 

COEEHIGH 

START 


MCNIEASE 
START  1 


DS  1  1 

DS  12 
DS21 

DS  22 
D  S  2  1 1 

DS212 

DS31 

DS32 
D  S  4  1 

DS  42 


DS  OD  MEMORY 

DC  A  (  (COREHIGH-CORELOW) -1)  MEMORY  IK  LONG , MEMEND 

DS  OH 

DS  5  1 1  F 

DS  OH 

EQU  *-MCNITCE 

STM  14,12,12(13) 

LR  12,15 
USING  MONITOR, 12 
ST  1 3 , MCNI SA VE+4 
LR  10,13 
LA  13, MCNI SAVE 
ST  13,8  ( ,  1  0) 

USING  APLMCCNS,13 
CALLO  DMACCCDE 
CALLO  SPECIS 
CALLO  SPECLS 
CALLO  SPEC  V  S 
CALLO  SPECARR 
CALLO  SPECDA 
CALLO  SPECNT 
CALLO  EMACCCDE 
ST  12,  MCNIBASE 
L  1  5, =V  (MAINCYCL) 

L  14, ECTTEOOL 

BALR  10,15 
L  12,8  (, 10) 

B  STAET1 

DS  IF 

L  1  3, MCNISAVE  +  4 

LM  14,12,12(13) 

BR  1 4 
DROP  12,13 
LTORG 

EC  5  E  *  15,291* 

DS  OF 

DC  (5*ISWIETH)  C’lSREG* 

DS  IF 
ES  OF 

DC  (5*LSWIDTH) C'LSREG' 

DS  1 F 
DS  OF 

DC  (20*NTWIDTH)C*  NTREG ' 

DS  IF 
DS  OF 

DC  (15*QSWIDTH7)C*QSREG' 

ES  IE 
DS  OF 

DC  (10*VSWIETH) C  * VSREG ' 

DS  IF 
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SPECARR 

SPSTART 


* 


* 


* 


* 


ENTRY  SPECARR 

ES  OD 

DMENT  SPARRSVE rSPECARR 

EAL  10,  SPREAE 

CIC  SPTEME  (4)  ,=C ' END  * 

BE  SPF1NISH 

CLC  SPTEMP  (4)  ,  =  C* STAR  ' 

ENE  SPERROR 

READ  IN  INFORMATION  AEODT 

BAL  10rSPREAE 

SR  2,2 

I  3 , SFTEMP+4 

BAL  10, SFHEX 

LR  4,1 

L  9  ,TCPEOOL 

SR  9,1 

ST  9,TCFE0CL 

USING  EESCRIPT, 9 

BUILD  NT  ENTRY 

BAL  10, SPREAE 

SR  2,2 

L  3, SFTEMP+4 

BAL  10, SPHEX 

L  8 , NTTOF 

LA  8 ,  NTWIDTH  ( , 8) 

ST  8, NTTOF 

USING  NTREG , 8 

ST  2 , NTV  ALUE 

STH  1 , NTI NX 

MV I  NTTAG ,TAGDT 

LR  7,9 

S  7 , ME  MADDR 

ST  7 , NT VA  LUE  +  4 

M  VI  NTTYPE,B»  00000000 • 

DROP  8 

BUILD  DESCRIETCR  ARRAY 

ST  4  ,DALEN 

ST  2 , E  AAEASE 

M  VI  DATYPE,TYPINT 

M VC  DAFILI  (4)  ,=X» C000000 

L  7 , B  CTT  FOOL 

S  7 , MEMAEDR 

ST  7 ,DAVBASE 

DROP  9 

LA  9,16  (,  9) 

S  4 ,  =  F  *  16' 

SRL  4,2 

BAL  8 , SPRE ADIN 

READ  IN  THE  ARRAY  OF  DATA 


READ  CARD,  END  OR  START 
CHECK  IF  END  CARD 
IF  SO,  FINISHED 
CHECK  IF  START  CARD 
IF  NOT,  AN  ERROR 
THE  DA 

READ  IN  THE  DA  LENGTH 

LOAE  DA  LENGTH 

CONVERT  TO  BINARY  REG  1 

FOR  LATER  USE 

ACCESS  TOPPOOL 

ALLOCATE  DA  SPACE 

RESTORE  NEW  TOPPOOL  VALUE 

ACCESS  NEW  DA 

READ  IN  INX  VALUE 

LOAD  INX  VALUE 

CONVERT  TO  BINARY 

ACCESS  TOP  OF  NT 

SET  UP  FOR  NEW  ENTRY 

RESTORE  NEW  NTTOP  VALUE 

ACCESS  NEW  NT  ENTRY 

ZERO  WORD  2 

SET  INX  VALUE 

SET  TAG  FOR  DA  POINTER 

MAKE  ABSOLUTE 
SET  DA  POINTER 
ZERO  TYPE  FLAG 
FINISHED  WITH  NT  ENTRY 

SET  UP  LENGTH 
ZERO  AEASE 
SET  TYPE  TO  INTEGER 
1*  SET  FILLER  AND  RC 
GET  VBASE  VALUE 
MAKE  ABSOLUTE 
SET  VBASE  VALUE 
FINISHED  WITH  CSECT 
SKIP  UP  TO  RANK  ETC. 
AMOUNT  LEFT  TO  READ  IN 
IN  WORDS 

READ  IN  REST  OF  DA 


■ 
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BAL 

10, SPREAD 

READ  IN  LENGTH  CF  ARRAY 

SR 

2,2 

L 

3 , SFTEMP+4 

LOAD  LENGTH 

BAL 

10, SPHEX 

CONVERT  TO  BINARY 

LR 

4,1 

FOR  LATER  USE 

L 

9,BCTTECCL 

START  OF  ARRAY 

BAL 

8 , SPREADIN 

READ  IN  ARRAY 

ST 

9 , BCTTECCL 

RESTORE  BOTTPOOL 

B 

SPSTART 

START  AGAIN 

* 

LOCAL 

READ  ROUTINE 

SPREAD 

READ 

1 , SPTEMP 

READ  IN  CARD 

WRITE 

6 , SITE  M  P, 20 

WRITE  OUT  THE  CARD 

BR 

10 

*LCCAL  CC 

AVERT 

ROUTINE 

SPHEX 

CALL 

HEXCCNV 

CONVERT  PEG  283  INTO  REG 

BR 

10 

RETURN 

* 

READ 

INTO  MEMCFY 

SPREADIN 

EAL 

10, SPREAD 

READ  IN  CARD 

LM 

2 , 3  ,  SPTEMP 

LOAD  IT 

BAL 

10, SPHEX 

CONVERT  IT 

ST 

1,0  (,9) 

STORE  IT  IN  MEMORY 

LA 

9,4  ( ,  9) 

INCREMENT  POINTER 

BCT 

4, SPREADIN 

RETURN  IF  NOT  FINISHED 

ER 

8 

RETURN 

* 

ERROR 

HAS  BEEN  FOUND 

SPERROR 

WRITE 

6, 'LENGTH  ERROR 

IN  SPECARR' 

DC 

1H1 00' 

BOMB 

* 

INITIALIZATION  IS  FINISHED 

SPFINISH 

DMEX 

SPARRSVE 

SPTEMP 

ES 

20F 

DROP 

8,9,11,12 

LTORG 

DS 

1 0F 

• 
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SPECIS 


LSINPUT 


TITLE 
ENTRY 
ES 

DMENT 
READ 
SR  2  r  2 
L  3, LSINPUT 

CALL  HEXCCNV 
CALL  NTS  EARCH 
L  6  r  L  STOP 

LA  6,LSWIBTH  (0,6) 

ST  6 , LSTCP 
USING  LSREG , 6 
L  5  r  8  ( r  1 ) 

A  5 , MEMADDE 

USING  SEGDREG , 5 
L  4  ,  SDORG 

S  4 ,  =  F  *  8  ' 

ST  4 , L  SDE 
L  4 , SDFI S  E 

N  4,=X* OOEFFFEF* 

A  4 , ME  MADE  F 

IA  4,8(,4) 

ST  4 , LSCRG 

SR  4,4 

ST  4 ,LSREL 

ST  4 , LSQE 

MV I  LSDE,B* 00000000* 

EMEX  SPECLSVE 

DROP  5,6,11,12 

ES  20  E 

DS  IGF 


READ  IN  INX  VALUE 
ZERO  REG  2 

REG  1  HAS  BINARY  INX 
REG  1  ADDRESS  NT  ENTRY 

SET  UP  FOR  NEW  LS  ENTRY 

ACCESS  NEW  LS  ENTRY 

GET  POINTER  TO  SEG  DESC 

MAKE  ABSOLUTE 

ACCESS  SEG  DESC 

GET  LENGTH  FIELD 

CUT  OFF  HEADER 

SET  UP  LENGTH  FIELD 

ACCESS  BASE  OF  PROG  SEG 

BLANK  BYTE  ONE 

MAKE  ABSOLUTE 

SET  ORG  UP  8  BYTES 

TO  SKIP  HEADER 

SET  REL  TO  0 

SET  QP  TO  ZERO 

DE  BIT  TO  1  CTHERS  TO  0 


*  SPECI E Y  LOCATION  STACK* 
SPECIS 
OD 

SPECLSVE, SPECLS 
5, LSINPUT, 4 
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TITLE  ' DM ACCCEE  SECTION' 
DM ACCODE  C SEC T 


DMENT 

DMACSflVE, DMACCODE 

DM  ACSTRT  BAL 

7 , RE  AD 

READ  IN  START  OR  END  CARD 

CLC 

INPUT (4) ,=C ' END  ' 

CHECK  FOR  END  CARD  OF  SEG 

BE 

FINISH  IF  SO, 

FINISHED  INITIALIZING 

CLC 

INPUT  (4)  , =C ' ST AR ' 

CHECK  IF  START  OF  NEW  SEG 

BNE 

ERRCR 

IF  NOT,  THERE  AN  ERROR 

LA 

7 , RE  AD  1 

READ 

READ 

1  , INPUT 

GENERAL  READ  FOR  CSECT 

WRITER 

WRITE 

6, INPUT, 20 

BR 

7 

HEX 

CLC 

INPUT  (4)  , =C 'END  ' 

BE 

ERRCR 

IF  END  CARD,  LENGTH  ERROR 

CLC 

INPUT  (4)  , =C ' STAR ' 

IF  START  CARD,  EPROR 

BE 

ERROR 

CALL 

HEXCCNV 

CONVERT  HEX  IN  REG  253 

BR 

7 

RE  ADI 

L 

3 , 1 N  E  U  T 

BAL 

7, HEX 

1  HAS  INX  VALUE  CF  SEG 

LR 

9,1 

STORE  FOR  INSERTION  IN  NT 

BAL 

7, READ 

READ  FISR,  FPARS,  FLCLS 

LM 

2 , 4 , INEUT 

BAL 

7, HEX 

REG  1  HAS  FISR  5  FPARS 

ST 

1 , DMACEARS 

STORE  FOR  LATER  USE 

SR 

2,2 

LR 

3,4 

BAL 

7, HEX 

REG  1  HAS  FLCLS 

STH 

1  ,DMACPABS+4 

* 

DM ACPARS 

CONTAINS  FISR ,  FPARS ,  FLCLS  IN  3  HALF-WORDS 

AH 

1 ,DMACFAFS+2 

ADD  FPARS 

AH 

1  ,  D  MAC  PA  F  S 

ADD  FISR 

STH 

1 , DM ACPAFS+6 

STORE  FOR  LATER  USE 

SLL 

1,1 

TO  GET  #  OF  BYTES 

LA 

1  ,20  (,  1) 

ADD  20  FOR  PREFIX  ETC. 

* 

REG  1  HAS 

LENGTH  CF  SEGMENT 

DESCRIPTOR 

L 

5  ,TCFEOCL 

GET  TOP  OF  AVAILABLE  MEM 

SR 

5,1 

ALLOCATE  SPACE  FOR  DESC 

N 

5  ,=X ' FFFFFFFC ' 

GO  TO  LOWER  FULL  WORD 

ST 

5  ,TCE  ECCL 

RESTORE  TOPPOOI  VALUE 

ST 

1,0  ( , 5 ) 

WORD  1  OF  PREFIX,  LENGTH 

M  VC 

4  (4,5)  ,=X'  00010000 

'  SET  RC= 1  AND  FILLE R  =  0 

STM 

1  ,  1  5,DEBUG1 

* 

BUILD  THE 

NT  ENTRY 

L 

1  0  ,  NTTC  P 

LA 

10, NT WIDTH  (,10) 

INCREMENT  NEW  NT  ENTRY 

ST 

10, NTTOP 

RESTORE  NEW  NTTCP  VALUE 

USING 

NTREG, 10 

ACCESS  NEW  NT  ENTRY 

SR 

3,3 
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IR 

4,3 

ZERO  OUT  WORDS  1  AND  2 

S 

5  ,  MEMADDP 

MAKE  ADDRESS  RELOCATABLE 

STM 

3 , 5 , NTI NX 

PUT  TOPPOOL  INTO  VALUE 

A 

5r  MEMADDP 

MAKE  ADDRESS  ABSOLUTE 

STH 

9 , NT INX 

SET  UP  INX  VALUE 

M  VI 

NTTAG  ,TAGSGT 

SET  TAG  TO  SEGMENT 

* 

BUIIE 

WO  PD  1  OF  DESCRIPTOR 

FISR  FVBASE 

* 

BUILD 

WORD  2  OF  DESCRIPTOR 

FIORG  FLEN+8 

* 

BUILE 

WORD  3  OF  DESCRIPTOR 

FPARS  FLCLS 

BAL 

7 , RE AD 

READ  FIORG  AND  FLEN  2A4 

LM 

2,3,INEUT 

BAL 

7  r HEX 

REG  1  HAS  FIORG  AND  FLEN 

LA 

1,8  (,1) 

REG  1  HAS  FIORG,  FLEN+8 

LR 

4,1 

SAVE  FOR  LATER  USE 

LR 

8,5 

REG  8  HAS  TOPPOOL 

USING  SEGDREG , 8 

START  SEGMENT  DESCRIPTOR 

ST 

1  ,  SDCRG 

NOW  IN  WORD  2  OF  SEG  DESC 

L 

7  , BCTTPCOL 

ACCESS  BOTTOM  OF  POOL 

IP 

6,7 

S 

7 , MEMADDP 

ST 

7,  SDEISR 

SET  FVBASE 

M  VC 

SDFISR  (1)  ,DMACPARS+1  SET  FISR 

MVC 

SDFPAPS  (4)  , DMACPARS+2  SET  FPARS  AND  ELCLS 

LH 

9  ,DMACPARS+6 

GET  EISR+FPARS+ELCLS 

STM 

1  ,  1  5 , DEEUG2 

LTR 

9,9 

BE 

EIDHEADP 

IF  THERE  NO  PARAMETERS 

LA 

5,20  ( ,  5 ) 

SET  REG  5  TO  LIST  PARAMS 

* 

LIST  PARAMETERS  IN  SEGMENT 

DESCRIPTOR 

LISTPARS  BAL 

7  ,  READ 

L 

3  ,  INPUT 

BAL 

7  r  HEX 

REG  1  HAS  INX  VALUES 

STH 

1,0  ( ,  5) 

STORE  BYTES  3  AND  4 

LA 

5,21,5) 

INCREMENT  BY  2  EYTES 

BCT 

9, LISTPARS 

DECREMENT  #  OF  PARAMETERS 

* 

BUILD 

DEADER  CF  PPOGPAM  SEGMENT 

BLDHF ADR  N 

4  ,  =  X 1 00 FFFFFF ' 

ISOLATE  FLEN+8 

ST 

4,0  ( ,6) 

SET  LENGTH  AND  EREFIX 

S 

4  ,  =  E  *  8  * 

NOW  HAS  LENGTH  CE  CODE 

MVC 

4  (4,6)  ,=X  *00010000 

'  SET  RC= 1  AND  FIL1ER=0 

LA 

6,8  (f6) 

SET  PAST  WORD  2  CF  PREFIX 

STM 

1  ,  1  5  ,  DE  EUG3 

* 

ACCESS 

DM  INSTRUCTION 

LDCODE 

:  EAL 

7, READ 

READ  IN  INSTRUCTION 

LM 

2,3, INPUT 

BAL 

7,  HEX 

REG  1  HAS  FIRST  4  BYTES 

ST 

1,0  ( , 6 ) 

STORE  WORD  OF  PROGRAM 

LA 

6,4  ( , 6 ) 

INCREMENT  INDEX  BY  4 

S 

4  ,  =  F  *  4 1 

DECREMENT  LENGTH  BY  4 

BP 

LDCCDE 

RETURN  IF  MORE  DMCCDE 

' 
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ST 

6  ,  BCTT FCCL 

UPDATE 

BOTTPOOL 

STM 

1  ,1 5  ,EEBUG5 

B 

EMACSTRT 

CHECK 

IF  PROPER  END 

ERROR 

M  VC 

INPUT  (20)  , ERROR 

1  WRITE 

OUT  LENGTH  ERROR 

DC 

1 H • CO  * 

FINISH 

DMEX 

DMACSAVE 

INPUT 

ES 

20  F 

DM ACPARS 

ES 

3F 

DEBUG  1 

ES 

2  OF 

DEBUG2 

DS 

2  OF 

DEBUG3 

ES 

20  F 

DEBUG5 

DS 

2  OF 

ERROR  1 

EC 

C*  SEGMENT  LEN 

ERROR  1 

DROP 

8,10,11,12 

ITORG 

DS 

8F 
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ENTRY 

MAINCYCL 

MAINCYCL  DS 

OH 

RECURENT 

L 

I SF  NT  r  LSTOP 

USING 

LSREG , LSENT 

♦STEP 

(1) 

CYCLSTRT  CIC 

ISFEL  +  1  (3)  , LSLEN 

REL  8  LEN  SHOULD  BE  + 

* 

El 

CYCIDCRE 

SO  LOGICAL  COMPARISON  WORKS 

♦STEP 

(2) 

TM 

I STRT , L  ST  RTCN 

TEST  IF  LS  STRUCT  IS  ON 

BNO 

CYCLISTS 

BRANCH  TO  CYCLE  IS  TEST 

L 

1  4r  EOTTFCOL 

LE 

12,14 

L 

1 5,  =  V  (POPIS) 

BALR 

10,15 

NI 

L  STRT , LSTRTCFF 

TURN  OFF  LS  STRUCI 

B 

CYCLRELO 

♦STEP 

(3) 

CYCLISTS  TM 

ISIS,ISISCN 

DOES  LS  HAVE  CONTROL? 

EZ 

CYCIFCFL 

♦STEP 

(4) 

CYCLE  ELO  SB 

TEMF ,TEME 

ZERO  LSREL 

ST 

IFMF , ISREL 

STM 

0 , 15,EEBUG100 

CALLREC  STEFIS 

INCREMENT  INDEX  GENERATOR 

NI 

NEWIT, NEWITCFF 

AFTER  INCREMENT, OLD  HERAT 

TM 

STEETOG  ,STPTGO N 

HAVE  RUN  THROUGH  INDICES 

EO 

CYCISIRT 

♦  STEP 

(5) 

L 

ISFNT , ISTOP 

USING 

ISREG , I  SENT 

TM 

ISTRT , ISTRTON 

TEST  IF  IS  STRUCT  IS  ON 

BNO 

CYCLECEL 

ERANCH  TO  POP  LS  IF  NOT 

Cl 

LSTET , LSI  ETON 

B 

CYCISIRT 

♦  STEP 

(6) 

STM 

0,15,EEBUG101 

CYCLPCPL  CALLREC  LECP 

B 

CYCISIRT 

USING 

CSREG1 ,CSENT 

♦STEP 

(7) 

CYCLDORE  T  M 

LSDE,EMAC 

EM  OR  DM  IN  CONTROL 

BO 

EMACHINE 

L 

15,  =  V  (DMACHINE) 

BALR 

14,15 

E 

CYCISTET 

♦STEP 

(8) 

E MACHINE  L 

QSENT , QSEASE 

QSEASE 
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A 

C S F N T  r ISREL 

QSBASE+LSORG 

A 

QSPNT,LSCRG 

QSBASE+LSORG+LSREL 

*STF.P 

(9) 

SR 

TEMPI  , TE  M  F 1 

IC 

TEMP  1 , CSCP1 

ACCESS  INSTRUCTION  INFO 

* 

I.E.  ATTRI EUTES  AND  ADDRES 

* 

OF  ROUTINE 

IR 

TE  M  F , TE  M  E 1 

N 

TEMF,=X*  0000003F* 

SIL 

TEMP, 2 

DISPLACEMENT  IN  QSOFTABL E 

L 

TEMP, QSOPTAEL  (TEMP) 

ADDRESS  OF  ROUTINE 

LTR 

TEMP, TEMP 

IS  INSTRUCTION  MARKED 

BM 

CYCISCAN 

*  STEP 

(10) 

N 

TEMPI,  =  X*  OOOOOOCO* 

ZERO  BITS  0-23  AND  26-31 

SRI 

TEMPI  ,4 

NO.  OF  BYTES  IN  INSTRUCT 

A 

TEMPI, ISREL 

UPDATE  RELATIVE  LS  POINTER 

ST 

TEMPI  , ISREL 

TM 

ISTRT, LSTRTCN 

B  NO 

CYCIREP 

SIL 

TEMP, 1 

LTR 

TEMP, TEMP 

EM 

CYCISTRT 

SRL 

TF  M  P  ,  1 

E 

CYCLREP 

*  STEP 

(11 

) 

CYCLSC AN 

TM 

ISTRT, LSTRTCN 

BNO 

CYCLREP 

DC 

1  H  1  0  ’ 

CYCLREP 

L 

14, BOTTPCOL 

RECURSIVE  CALL 

IR 

12,14 

STM 

0 , 15,DEBUG102 

EALR 

10,CAIIADDR 

L 

I SP  NT, LSTOP 

B 

CYCISTRT 

DROP 

QSPNT,ISPNT,ISENT 

ITORG 

DEBUG  1 00 

DC 

16A  (291) 

DEEUG101 

DC 

1 6 A  (291) 

DEEUG10  2 

DC 

16A  (291) 

■ 

- 
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D MACHINE  LISTING. 
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TITLE 

"MAIN  BODY  CF  THE 

D-M ACHINE  * 

ENTRY 

DMACHINE 

DM ACHINE 

ES 

OD 

* 

REG  8 

HAS  OPCODE  3  FOR  LEAVE,  AND  4  FOP  RETURN 

DMENT2  DMACHSVE, DM ACHINE 

L 

1 0 , ISTOP 

USING 

LSPEG,  10 

ACCESS  TOP  OF  IS 

* 

CHECK 

IF  EM  WAS  DOING  AN 

INTERMEDIATE  EVALUATION 

CIC 

TEMERET  (4)  ,=X*  00000000 •  CHECK  IF  ZERO 

BE 

DMCHKTAG 

IF  SO,  CONTINUE 

L 

1 5, T  E  MPRET 

OTHERWISE,  ERANCH 

BP 

15 

TO  ADDRESS  IN  TEMPRET 

* 

CHECK  IF 

VS  TAG  IS  FT,  EDT , 

OR  JT 

EMCHKTAG 

L 

10, VSTCE 

USING 

VSREG, 10 

ACCESS  TOP  ENTRY  OF  VS 

M  VC 

DMTEME  (1)  , V  STAG 

STORE  V STAG  FOR  LATER  USE 

CLI 

D  MTEM  E , T AGF  ET 

CHECK  IF  TAG  JT,FT,FDT 

BH 

DMSTART 

IF  NOT,  START  NEW  INSTRUC 

* 

PUSH  QS 

ENTRY  CF  OP  ARPAYPOINT  MASK 

M  VI 

V  STAG , TAGSGT 

SET  TAG  TO  SGT 

L 

9,QSINSFT 

ACCESS  TOP  ENTRY  OF  QS 

ST 

9 ,QSTOP 

UPDATE  QSTOP 

LR 

8,9 

FOR  LATER  USE 

LA 

8 , Q S WIDTH5  (,8) 

SPACE  FOR  NEW  QS  ENTRY 

ST 

8 , QSINSRT 

NEW  QSINSRT  VALUE 

USING 

QSREG5 , 9 

THIS  WILL  BE  TYPE  QSREG5 

SP 

2,2 

FOR  ZEROING 

ST 

2 ,QSOP  5 

ZERO  OUT 

ST 

2 , QS ADDR5 

THE  QS 

ST 

2  ,QSMASK5 

INSTRUCTION 

CLI 

DMTEME, TAGDT 

CHECK  IF  JT,  DT,  OR  FET 

BH 

DMFET 

ERANCH  FOR  FDT 

BL 

DMJT 

ERANCH  FOR  JT 

M  VI 

QSOP5,OPIA 

DT,  SET  OPCODE  TC  IA 

B 

DMMASK 

EUILE  THE  MASK 

DMFDT 

M  VI 

Q  SOP5 , CPIF A 

FDT,  SET  OPCODE  TO  IF  A 

B 

DMMASK 

BUILD  THE  MASK  ETC. 

DM  JT 

M  VI 

QSCE5  ,OPIJ 

JT,  SET  OPCODE  TO  IJ 

B 

DMSTART 

ACCESS  THE  INSTRUCTION 

♦ 

OP 

PART  ' 

OF  ENTRY  HAS  BEEN  CONSTRUCTED 

DMMASK 

L 

7, VSVALUE+4 

GET  DA  POINTER 

ST 

7 , QSADDR5 

LOAD  IT  INTO  APRAYPOINTER 

* 

ARR  APPOINT  ER  HAS  BEEN  CCNSTRUCTED 

SR 

2,2 

L 

3 ,=X ' FF  EFFFFF • 

FILL  REG  3  WITH  ONES 

L 

4,16  (, 7) 

OBTAIN  RANK 

SLDA 

2,0  (4) 

FILL  REG  2  WITH  RANK  ONES 

ST 

2 ,QSMASK5 

SET  MASK 

* 

MASK  HAS 

BEEN  CCNSTRUCTED 
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* 

NOW  MUST  PUSH  AN  IS  ENTRY 

FOB  EACH  DIMENSION 

L 

6*16  ( ,  7) 

RANK  AS  THE  INDEX 

LA 

*7*20  ( *  7) 

UP  TO  NEXT  DIMENSION 

I 

5  r I  STOP 

ACCESS  TOP  OF  IS 

LA 

5  ,ISWIDTH  (,5) 

ALLOCATE  NEW  ENTRY 

ST 

5  ,  VS  VALUE 

SET  IS  POINTER 

USING 

ISREG, 5 

ACCESS  NEW  IS  ENTRY 

MV  I 

ISDIB,B*  00010000' 

SET  FLAGS 

SB 

2,2 

ZERO  REG  2 

DMDIME 

ST 

2 , ISCTB 

ZERO  COUNTER 

M  VC 

ISMAX  (3)  ,  1  (7) 

SET  LENGTH  FIELD 

BCT 

6  f DMDIME1 

ERANCH  IF  NOT  LAST  DIMEN 

ST 

5  ,  ISTOP 

SET  NEW  ISTOP  VALUE 

B 

DMSTABT 

THEN  FINISHED 

DMDIME 1 

LA 

5,ISWIDTH  (,  5) 

UP  TO  NEXT  IS  ENTRY 

LA 

*7,8  ( r 7 ) 

UP  TO  NEXT  DIMENSION 

M  VI 

ISDIR,B*00000000* 

SET  FLAGS 

B 

DMDIME 

RETURN  FOR  NEXT  DIMENSION 

DM  ST  A  BT 

L 

1  0  r ISTOP 

USING 

LSREG, 10 

ACCESS  TOP  OF  LS 

L 

9 , LSCBG 

A 

9, ISBEL 

GET  ADDRESS  OF  INSTRUCT 

LH 

8*0  ( *  9) 

LOAD  2  BYTES  OF  CODE  IN  8 

LB 

5,  8 

ALSO  IN  REG  5 

LB 

6,8 

ALSO  IN  BEG  6 

LB 

7*8 

ALSO  IN  REG  7 

N 

8,  =  X  *  C000003F  * 

ISOLATE  OPCODE  IN  REG  8 

SIL 

7,16 

SRL 

7,28 

ISOLATE  LENGTH  IN  REG  7 

C 

8  ,  =  f *  39 ' 

BH 

DMLDS 

BRANCH  IF  LDS  OR  LDJ  INS 

C 

7 ,=F  *  4  * 

BE 

DMLEN4 

INSTRUCTION  LENGTH  IS  4 

BH 

DMLEN6 

INSTRUCTION  LENGTH  6,  10 

DMLEN2 

SIL 

6,20 

SRL 

6,26 

ISOLATE  K  OR  API  OF  IN  6 

E 

DMEBANCH 

EMLEN4 

LH 

5,2  ( , 9) 

ACCESS  BYTES  354 

N 

5 , =  X  *  C000FFFF  * 

REG  5  HAS  INX  OB  COORD 

B 

DMLEN2 

REG  6  HAS  24  BIT  ADDRESS 

DMLEN6 

M  VC 

DMTEMP  (8)  ,2  (9) 

ACCESS  BYTES  3-10 

LM 

3 ,4 , DMTEMP 

REG  3  CONTAINS  ADDRESS 

B 

DMEBANCH 

DMLDS 

SIL 

6,20 

SRL 

6,28 

ISOLATE  TYPE  IN  BEG  6 

C 

7 , =F  *  2  * 

CHECK  LENGTH  AGAIN 

BNE 

DMLEN6 

BEG  3  CONTAIN  AN  INTEGER 

* 

CHARACTER,  OR  REAL  VALUE 

* 

REG  354  CONTAIN  LREAL 

* 

REG  384  CONTAIN  J-VECTOR 

■ 
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SII 

SRL 

DMEBANCH  L 
A  F 
ST 
LR 
SIL 
L 

E  AIR 
D  ME  X 

DMTEMF  DS 

DMOPTBL  EC 
DC 
DC 
EC 
DS 
ES 
ES 
EC 
DC 
EC 
ES 
ES 
ES 
ES 
ES 
ES 
DS 
DS 
ES 
ES 
DC 
DC 
DC 
EC 
DC 
EC 
ES 
ES 
DS 
ES 
DS 
ES 
DC 
DC 
EC 
EC 
DC 
DS 
DC 


5,24 
5,31 
9 , IS  REI 

9.7 

9  ,ISREL 

9.8 
9,2 

1 5, E  MOFTBI-4  (9) 
14,  15 
D  MACHS VE 
20F 

V  (ASGN) 

V  (ASGN) 

V  (IE A V E) 

V  (HAVE) 

F 

F 

F 

V  (SEIECT) 

V  (SEIECT) 

V  (SEIECT) 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

V (IIS) 

V  (IECCN) 

V  (JfF) 

V  (JMF) 

V  (JMP) 

V  (SEIECT) 

F 

F 

F 

F 

F 

F 

V  (MEAEIC) 

V  (MEAEIC) 

V  (GEF) 

V  (INF) 

V (INF) 

F 

V (ICAD) 


BINARY  VAIDE  IN  REG  5 


UPDATE  REI 

DISPIACEMENT  INTC  EMOFTBI 
IN  BYTES 

GET  ROUTINE  ADDRESS 
ERANCH  AND  IINK  TO  ROUTINE 


DC  V  (1CAD) 

EC  V  (1CAE) 

L10RG 
ES 


1  OF 
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ICAE  LISTING 
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TITLE 

1 LC AE  SECTION' 

ENTRY 

ICAD 

1 0  AD 

IS 

OE 

DMENT 

LOAESAVE, LOAD 

* 

REG  8 

HAS  CECOEE  24=LDN, 

27=LDSEG 

* 

28=LDS, 

29=LD J 

* 

REG  3 

HAS  SINGLE  WORE  OPERANE 

* 

REG  384  HAVE  DCUBIE  WORD 

OPERAND 

* 

REG  5 

HAS  BINARY  VALUE 

♦ 

REG  6 

HAS  TYPE  FOR  LDS  INSTRUCTION 

* 

THIS 

CSECT  FOR  LDS  r  LDS  EG 

,  LDJ  AND  LDN 

L 

10r VSTOP 

LA 

1  0  ,  V  SWIETH  (,10) 

SET  UP  FOR  NEW  INTRY 

ST 

10, VSTOP 

STORE  NEW  VSTOP  VALUE 

USING 

VSREG, 10 

ACCESS  NEW  ENTRY 

* 

PUSH 

THE  DOUBLE  WORD  OPERAND  TO  THE  VALUE  HELD 

* 

CTHEB 

CASES  HANDLED  SEPARATLY 

STM 

3,4  ,VSVALUE 

STORE  DOUBLE  WORE  OPERAND 

C 

6  ,  =  F  *  2  8 ' 

CHECK  FOR  LDS  =  2  8 

BL 

LONSEG 

EITHER  LDN  OR  LDSEG 

BE 

LCS 

IF  EQUAL,  THEN  LDS 

* 

OTHERWISE  HAVE  ISOLATED  LDJ  INSTRUCTION 

M  VI 

VSTAG ,T AG JT 

SET  TAG  TO  JT 

B 

LOFINISH 

THEN  FINISHED 

* 

HAVE 

ISOLATEE  LDS  INSTRUCTION 

LOS 

MV  I 

VSTAG, TAGST 

SET  TAG  FOR  SCALAR 

ST 

6  ,LCTEME 

STORE  TYPE  FOR  LATER  USE 

M  VC 

VSTYPE  (1)  ,LCTE MP+  3 

SET  TYPE 

TM 

LCTEMP+3 , E' 10000000 

•  TEST  FOR  BOOLEAN 

BE 

LONCTBOC 

IF  NOT,  NOT  EOCLEAN 

* 

HAVE 

ISOLATED  EOCLEAN  SCALAR 

ST 

5  ,  VSVALUE  +  4 

STORE  BINARY  VALUE  IN  VS 

B 

LOFINISH 

THEN  FINISHED 

* 

HAVE 

EITHER  LDN  OB  LDSEG 

LONSEG 

C 

6 ,=  F ' 27 ' 

CHECK  FOR  OPCODE  LDSEG 

BE 

LOLESEG 

IF  SO  THEN  ERANCH 

M  VI 

VSTAG, TAGNPT 

OTHERWISE  TAG  SET  TO  NPT 

ST 

3 , VSVALUE+4 

STORE  INX  VALUE 

B 

LOFINISH 

THEN  FINISHED 

* 

HAVE 

EITHER  LREAL  OR  A  4 

BYTE  OPERAND 

LONOTBOO 

TM 

LCTEMP  +  3, B*  00001000 

'  TEST  FOR  LREAL 

BO 

LOFINISH 

IF  SO  THEN  FINISHED 

ST 

3, VSVALUE+4 

STORE  4  BYTE  VALUE 

B 

LOFINISH 

* 

HAVE 

ISOLATED  LDSEG 

LOLDSEG 

ST 

3, VSVALUE+4 

SET  VALUE  TO  SD  POINTER 

MVI 

VSTAG, TAGSGT 

SET  TAG  TO  SEG  DESCRIPTOR 

LOFINISH 

STM 

0, 15,LCTEMP 

DUMP  REGISTERS 

DMFX 

LOAESAVE 

- 
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LOTEMP 


ES  2  OP 

DROP  10,11,12 

ITORG 

DS  1 0F 
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APPENDIX  E. 


CONTROL  AND  STORAGE  ACCESS. 


INF  LISTING. 


JMP  LISTING. 
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ENTRY 

LNF  DS 

*  BEG  5 

D  ME  NT  2 
WRITE 
LB 

CALL 

LB 

USING 

L 

LA 

ST 

USING 
SB 
ST 
M  VC 
M  VC 
M  VC 
N I 
M  VC 
CII 
BNE 
L 
A 

ST 

USING 

L 

LA 
ST 
M  VI 

LNFINISH  DMEX 
LNFTEMP  DS 

DBOP 

LTCRG 

DS 


INF 

OD 

FAS  I NX  VALUE  OF  V 
LNF  SAVE ,LNF 
6  ,  * IDNF  HAS  BEEN  C 

1,5 

NTSEABCH 

10,1 

NTBEG, 10 
9 ,  VSTOP 
9rVSWIETH  (f  9) 

9  ,  V  STOP 
VSREG, 9 
2,2 

2 ,  VST AG 

VSVALUE  (8)  , NTV ALUE 
VSTYPE  (1)  , NTTYPE 
LNFTEMP  (1)  , NTT AG 
LNFTEM  P, B  *00 1 11111 
VSTAG  (1)  , LNFTEMP 
LNFTEMP,! AGDT 
LNFINISH 
7 , NT  VA  LUE  +  4 
7, MEMADDF 
7,VSVALUE+4 
DESCRIFT , 7 
6,DAFILL 
6,1  ( , 6) 

6 ,D AFIIL 
VSTAG, TAGFDT 
LNFSAVE 
4  F 

7,9,10,11,12 

1 0F 


ARIAELE  IN  NT 


ALLED* 
BEG  1 
BEG  1 


HAS  I NX  VALUE 

HAS  NT  ENTRY  ADDRESS 


ACCESS  NT  ENTRY 

ACCESS  TOP  OF  VS 

SET  UP  FOR  NEW  ENTRY 

RESTORE  NEW  VSTOP  VALUE 

ACCESS  NEW  VS  ENTRY 

ZERO  OUT 

TAG  FIELD 

PUSH  VALUE  TO  VS 

SET  TYPE  FLAG 

ACCESS  TAG  IN  NT 

BLANK  LOCAL  AND  MARK 
SET  TAG 

CHECK  FOB  TAG  DT  (ARRAY) 

BRANCH  IF  NOT 

GET  DA  POINTER 

MAKE  ABSOLUTE 

SET  NT  POINTER 

ACCESS  DA 

LOAD  WORD  CONTAINING  RC 
INCREMENT  BY  1 
RESTORE  VALUE 
SET  TAG  TO  FDT 


■ 
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TT1LE 

'TRANSFER  OF 

CONTROL ' 

ENTRY 

JMF 

JMF 

ES 

OD 

* 

OPERATOR  CECODE 

IN  REG  8 

* 

JMF 

17 

* 

JMFO 

18 

* 

JMF1 

19 

* 

REG  6 

HAS  K  FOB  ANY 

JUMP 

DMENT 

JMFSAVE , JMP 

L 

10, ISTCP 

USING 

LSREG, 10 

ACCESS  TOP  ENTRY  OF  IS 

L 

9 , V  STOP 

USING 

VSREG , 9 

ACCESS  TOP  ENTRY  OF  VS 

L 

3  ,  VSVALUE+4 

LOAD  WORD  2  OF  VALUE 

C 

8, =F'  18' 

CHECK  FOR  WHICH  JME  TYPE 

BL 

JUMFCHNG 

OPERATOR  IS  UNCONDITIONAL 

El 

JMEO 

OPERATOR  IS  JMPO 

S 

3,=F' 1  ' 

SEE  IF  VALUE  =  1 

JMPO 

ITR 

3,3 

TEST  J M P0  =  0  AND  JMF1=1 

BM 

NCJUMF 

DO  NOT  CHANGE  REL  FIELD 

JUHFCHNG 

L 

5,LSREL 

ACCESS  REL  VALUE 

IR 

1,5 

FOR  TESTING  CNLX 

AR 

5,6 

CHANGE  REL 

ST 

5  ,  ISREI 

STORE  NEW  REL 

NOJUMP 

STM 

0 , 15,  JMTEMP 

DUMP  REGISTERS 

DMEX 

JMESAVE 

JMTEMP 

DS 

16F 

EBOP 

9,10,11,12 

ITORG 

ES 

1  OF 

' 
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SCALAR  ARITHMETIC  OPERATORS^. 


MDADIC  LISTING. 


GDF  LISTING. 
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MDAEIC 

* 

* 


* 

* 


* 

MDM0N1 


* 

MEYAD 


TITLE  ‘DYADIC  AND  MCNADIC  ROUTINE* 

C  SECT 

D  WENT  2  MDSAVE, MDAEIC 

REG  8  HAS  CECODE  21  FOR  MONADIC,  22  FOR  DYADIC 


REG  6 
SLL 
I 
S 

USING 

C 

BE 


OEEFATOR 


HAS 

6,2 

1 0 , V  STOP 
10 ,  =  A  (VSWIDTH) 
VSREG,  10 
8  ,  =  X  *  00  0000 22  * 
MDYAD 

DEALING  WITH  A  MONADIC 
PUSH  INSTRUCTION  TO  CS 


MCNADIC  OR  D|ADIC 

DISPLACEMENT  INTC  TABLES 
ACCESS  TOP  OF  VS 
DOWN  TO  SECOND  VS  ENTRY 
ACCESS  SECOND  TOP  ENTRY 
CHECK  IF  DYADIC 
IF  SO,  THEN  BRANCH 
OEERATOR 


L 

ST 

USING 
LA 
M  VC 
M  VI 
M  VI 
LA 
ST 
CII 
BE 
NOW 
L 

LA 

ST 

USING 
M  VC 
M  VC 
M  VC 
M  V I 
B 


2  ,QSINSRT 
2 , QSTOP 
QSREG2 , 2 
1  ,  MCNTBLE  (6) 

QSADDR2  (3)  ,1(1) 
QSCE2, OPCP 
13  (10)  , T AGSGT 
2, QSWIDTH2  (,2) 
2,QSINSRT 

VSTAG+V S WIDTH, T AGSGT 


SET  UP  FOR  NEW  ENTRY 
UPDATE  QSTOP  VALUE 
ACCESS  NEW  QS  ENTRY 
ACCESS  ADDRESS  TABLE 
SET  UP  ROUTINE  ADDRESS 
SET  OPCODE  FOR  MCNADIC 
SET  TAG  TO  SGT 
INCREMENT  QSINSRT 
STORE  AS  NEW  QSINSRT 
CHECK  IF  A  SEG  DESC 


LS  ENTRY 


MDFINISH 
MUST  EUILE 
9  ,LSTOP 
9  ,  LSWIDTH ( , 9) 

9  ,  L  STOP 
LS  REG , 9 
LSREL  (4)  ,  =  F ' 0  * 
LSCRG  (4) , QSTOP 
LSDE  (4)  ,=F  *  4  * 
LSDE ,B* 10000000 • 
MDFINISH 
DEALING  WITH  A  DYADIC 
CLI  VSTAG,TAGSGT 
MDYAD2SD 


IF  SO, 
AND  CALL 
ACCESS 
SET  UP 


THEN  FINISHED 
EM 

TOP  OF  LS 
FOR  NEW  ENTRY 


BE 

NOW 

CLI 


STORE  NEW  TOP  VALUE 
ACCESS  NEW  ENTRY 
SET  REL=0 

SET  POINTER  TO  QS  SEGMENT 
SET  LENGTH  TO  4  BYTES 
SET  FLAGS 
THEN  FINISHED 
OPERATOR 

CHECK  IF  SECOND  SEG  DESC 
IF  SO,  THEN  ERANCH 


DEALING  WITH  A  DYADIC, 
V STAG* VS WIDTH, T AGSGT 


SECOND  IS  A 
CHECK  IF 


SCALAR 

TOP  SEG  DESC 


BE 

MDYAD1SD 

IF  SO, 

THEN  ERANCH 

NOW 

DEALING  WITH  A  DYADIC 

SCALAR 

SITUATION 

L 

2, QSINSRT 

SET  UP 

NEW  ENTRY 

ST 

2  , QSTOP 

STORE 

NEW  QSTOP  VALUE 

USI 

NG  QSREG 2 , 2 

ACCESS 

NEW  ENTRY 

LA 

1  ,  D YDTBLE (6) 

ACCESS 

ROUTINE  ADDRESS 

MVC 

QSADDR2  (3)  , 1  (1) 

SET  UP 

ROUTINE  ADDRESS 

M  VI 

QSOE  2 , CPGOP 

SET  OPCODE  FOR  DYADIC 

LA 

2,QSWIDTE2  (,2) 

UPDATE 

QSINSRT 

ST 

2 , QSINSRT 

STORE 

NEW  QSINSRT  VALUE 

• 

' 

• 
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B 

MDMCN1 

CALL  EM 

* 

NCW  TCP  IS  SEG  D E SC  AND 

SECOND  IS  SCALAR 

* 

MOST  MOVE  IASI  QS  SEG  UP 

FOR  NEW  INSTRUCTION 

MDYAD1SD 

LA 

1 r MD101 

SET  BRANCH  ADDRESS 

MD100 

L 

7, VSTAG 

ACCESS  TAG  FIELD 

SII 

7, 14 

ISOLATE  TYPE  FLAG 

SRL 

7,30 

ISOLATE  VALUE  LENGTH 

LA 

7,3  ( ,  6) 

SRL 

7,2 

SIL 

7,2 

GO  UP  TO  NEXT  FULL  WORD 

BF 

1 

RETURN 

* 

REG  7 

NOW  HAS  LENGTH  OF 

INSTRUCTION  TO  BE  INSERTED 

* 

NCW  MOVE  QS  SEG  UP 

MD  10  1 

L 

9  ,  Q  SIN  S  ET 

ACCESS  END  OF  SEGMENT 

LR 

5,9 

SR 

5,7 

5  HAS  ADDRESS  MOVED  FROM 

L 

4,VSVALUE+4+VSWIDTH  SEG  DESC  POINTER 

MDMOVE 

EX 

7 , ME  MVC 

MOVE  UP  A  SECTION  CF  CODE 

SR 

9,7 

SR 

5,7 

DECREMENT  INDICES 

CR 

5,4 

CHECK  IF  FINISHED 

BNH 

MDINSERT 

B 

MDMCVE 

MDMVC 

M  VC 

0  (0,9)  ,0  (5) 

* 

INSERT 

THE  INSTRUCTION  IN  THE  QS 

MDINSERT 

LA 

1  ,  MDUEENTB 

LR 

2,4 

2  HAS  ADDRESS  FOR  INSERT 

LR 

3,10 

3  HAS  ADDRESS  INSERTEE 

USING 

V  SREG , 3 

ACCESS  VS  ENTRY 

MDINSRT1 

CLI 

V  ST YPE, E  *  00000010  ' 

CHECK  LENGTH  4  EYTES 

BE 

MDINLEN4 

INTEGER  OR  REAL  VALUE 

BH 

MCINLEN8 

LONG  REAL  VALUE 

* 

INSERT 

A  BINARY  VALUE  CR 

A  CHARACTER  VALUE 

MVC 

0  (4,2)  , VSVALUE  +  4 

MOVE  IN  OPERAND 

M  VI 

0  (2) , CPS  1 

SET  OPCODE 

B 

MDINSFTF 

THEN  FINISHED 

* 

INSERT 

AN  INTEGER  VALUE 

OR  A  REAL  VALUE 

M  DINLEN4 

M  VI 

0  (2)  , OF  S4 

SET  OPCODE 

MVC 

4 (4,2) , VSVALUE+4 

MOVE  IN  OPERAND 

B 

MDINSRTF 

THEN  FINISHED 

* 

INSERT 

A  LCNG  REAL  VALUE 

MDINLEN8 

MV  I 

0  (2)  ,  OP S 8 

SET  OPCODE 

MVC 

4(8,2) , VSVALUE 

MOVE  IN  OPERAND 

MDI N  S  RTF 

EE 

1 

RETURN 

* 

NCW  UPDATE  PCINTERS 

MDUPPNTR 

L 

9 , QSINSRT 

DROP 

3 

DROP  USING  REGISTER 

L 

5 , QSTOP 

ACCESS  POINTERS 

AR 

9,7 

AR 

5,7 

■ 


. 
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A  R 

4,7 

UPDATE  POINTERS 

SI 

9, QSINSRT 

SI 

5 ,QSTCF 

ST 

4, VS VALUE* 4+ VS WIDTH 

STORE  NEW  SGT  EOINTER 

M  VI 

V  ST  AG , T AGSGT 

SET  TAG  TO  SGT 

B 

MDGCEINS 

ERANCH  TO  INSERT  GOP  INST 

* 

DEALING  WITH  SECOND  ENTRY 

AS  A  SEG  DESC 

MDY  AD2SD 

CLI 

VSTAG*VSWIDTH,TAGSGT 

'  CHECK  TOP  A  SEG  EESC 

BE 

MDYAD12S 

IF  SO,  ERANCH, 

* 

DEALING  WITH  TCP  A  SCALAR 

AND  SECOND  A  SEG  DESC 

L 

2 , QSINSRT 

FOR  LOAD  SCALAR  INSTRUCT 

LR 

3r  10 

ADDRESS  OF  INSERTEE 

LA 

3  f  VSWIDTH  ( ,  3) 

LOCATION  OF  VS  ENTRY 

TJSING 

VSREG  ,3 

ACCESS  TOP  VS  ENTRY 

EAL 

1 , MDINSFT  1 

INSERT  INSTRUCTION 

* 

NOW  CHANGE  VS  ENTRY  AND  UPDATE  POINTER 

M  VI 

V  ST  AG , T AGSGT 

SET  TAG  TO  SGT 

ST 

2,VSVALUE*4 

SET  POINTER  TO  QS  SEGMENT 

EAL 

1 , MD 1 00 

GET  LENGTH  OF  INSTRUCTION 

L 

2  ,QSINSRT 

UPDATE  QSTOP 

ST 

2 , QSTOF 

STORE  NEW  QSTOP  VALUE 

AR 

2,7 

UPDATE  QSINSRT 

ST 

2, QSINSRT 

STORE  NEW  QSINSRT  VALUE 

DROP 

3 

DROP  USING  REGISTER 

* 

DEALING  WITH  2  SEGMENT  DESCRIPTORS 

MDYAD12S 

SR 

1,1 

SET  REG  1  FOR  CONFORM 

L 

3,VSVALUE*4 

GET  SGT  POINTER  2 

L 

2,0  (3) 

2  HAS  DA  POINTER  SEG  2 

L 

4  ,  VSVALUE  +  4  +  VSWIDTH 

GET  SGT  POINTER  1 

L 

3,0  (4) 

3  HAS  DA  POINTER  SEG  1 

CALL 

CONFORM 

CHECK  IF  CONFORMABLE 

* 

NOW  PUSH  GOP  INSTRUCTION 

MDGOPINS 

L 

5  r  QSINS  FT 

UPDATE  QSTOP 

ST 

5  f QSTC P 

SET  NEW  QSTOP  VALUE 

USING 

QSRFG2 ,  5 

ACCESS  NEW  ENTRY 

LA 

1 , DYDTBLE  (6) 

ACCESS  ROUTINE  ADDRESS 

M  VC 

QSADDR2  (3)  ,  1  (1) 

SET  UP  ROUTINE  ADDRESS 

M  VI 

QSOE2 , CEGCP 

SET  OPCODE  TO  GOP 

LA 

5 , QSWIDTH2  (,5) 

UPDATE  QSINSRT 

ST 

5 , QSINSRT 

* 

POP  VALUE  STACK 

L 

5 , V  STO  E 

ACCESS  VS 

S 

5  r  =  A  (VSWIETH) 

POP  ENTRY 

ST 

5,  VSTOP 

RESTORE  NEW  VSTOE  VALUE 

M  VI 

1  (5)  ,  T  AGSGT 

SET  TAG  TO  SGT 

MDFIN ISH 

DMEX 

MDSAVE 

MCNTBLE 

ES 

20F 

DYDTBLE 

DS 

2  OF 

DROP 

2,3,9,10,11,12 

ITORG 

' 

■ 
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TITLE 

•  GENERAL  DYADIC 

FORM  SECTION* 

GDI 

CSECT 

DMENT2  GDS A VE , GDF 

STM 

0, 15,GDDISP 

WRITE 

6  ,  ' GDF  WAS  CALLED 

t 

ST 

6 , GDCFER 

STORE  APL  OPERATOR  # 

* 

CHECK 

IF  EITHER  OPERAND 

IS  A  SCALAR  VALUE 

L 

10, VSTOP 

ACCESS  TOP  OF  VS 

USING 

VSREG  r  1  0 

ACCESS  TOP  ENTRY 

CLI 

VSTAG  ,TAGST 

CHECK  IF  SCALAR 

BE 

G  DDL  AD IC 

IF  YES,  TREAT  AS  DYADIC 

S 

1  0,  =A  (VSWIDTH) 

DECREMENT  TO  NEXT  ENTRY 

CLI 

VSTAG, TAGST 

CHECK  IF  SCALAR 

BE 

GDDYAD1C 

IF  YES,  TREAT  AS  DYADIC 

* 

CHECK 

IF  HAVE  TO  EVALUATE  RHO  IMMEDIATELY 

CLI 

VSTAG, TAGDT 

CHECK  IF  AN  ARRAY 

BE 

GDGCFINS 

IF  YES,  PUSH  GOP  INST 

* 

NOW  MUST  CALL  EM  TO  EVALUATE  PHO 

* 

FIRST 

,  MUST  INSERT  SOME 

INSTRUCTIONS  IN  QS 

L 

8 , QSTOP 

ACCESS  TOP  OF  QS 

LA 

8,32  (,  8) 

UPDATE  FOR  ADDED  LENGTH 

ST 

8, QSTOP 

RESTORE 

L 

8,QSINSET 

ACCESS  END  OF  QS 

LR 

9,8 

FOR  LATER  USE 

LA 

8,32  ( ,  8) 

UPDATE 

ST 

8,QSINSRT 

RESTORE 

L 

7 , =F 1 32  * 

LENGTH  OF  MOVE 

I 

6,=F  *31  ' 

FOR  EX  STATEMENT 

LR 

5,9 

REG  5  IS  INDEX 

SR 

5,7 

DECREMENT  INDEX 

L 

4 , VS  VALUE  +  4 

GET  QS  POINTER 

LA 

3 , GDINSRT  1 

FOR  BRANCHING 

S 

10, =A  (VSWIDTH) 

DOWN  NEXT  ENTRY 

* 

MC  VE 

UP  A  CHUNK  OF  CODE 

GDMOVE 

EX 

6 , GD  MVC 

MOVE  CHUNK  OF  CODE 

SB 

9,7 

DECREMENT  DESTINATION 

SR 

5,7 

DECREMENT  ORIGIN 

CR 

5,4 

CHECK  IF  DONE 

BH 

GDMCVE 

IF  NOT,  CONTINUE 

BR 

3 

OTHERWISE,  FINISHED 

GEM  VC 

M  VC 

0  (0,9)  ,0  (5) 

* 

NOW  M 

UST  INSERT  SCME  ENTRIES  IN  QS 

GDINSRT1 

L 

1 ,VSVALUE 

GET  IS  POINTER 

* 

ALLOCATE  CREATES  DA  AND 

ARRAY  SPACE  FOR  TEMP  RESULT 

*  POINTER  CCMES  VACK  IN  PEG  1  AND  MASK  IN  PEG  2 

CALI  AIICC ATE 
LA  4,4(,4) 

USING  QSREG5 , 4 
M VI  QSCP  5 ,OPI A 


UP  FOP  IA  INSTRUCTION 
ACCESS  NEW  INSTRUCTION 
SET  OPCODE  TO  IS 


■ 

• 
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M  VC 

QSLINK5  (3)  ,=X*  000000  '  ZEBO  LINK  FIELD 

ST 

1 r QSADBR5 

SET  DA  POINTER 

SI 

2,QSMASK5 

SET  MASK 

* 

THE 

IA  TEME  INSTRUCTION 

IS  CREATED 

LA 

4 , QSWIDTH5  (,4) 

UP  FOB  ASGN  INSTRUCTION 

M  VC 

0  (4)  ,=V  (EMASGN) 

ADDRESS  OF  ASSIGN  ROUTINE 

M  VI 

0  (4)  ,OPOP 

SET  OPCODE 

* 

THE 

ASGN  INSTRUCTION  IS 

CREATED 

LA 

4,QSWIDTH2  (,4) 

UP  FOR  IF A  TEMP 

M  VI 

QSOE5 , OPIFA 

SET  OPCODE 

M  VC 

QSLINK5  (3)  ,=X«  000000  *  ZERO  LINK  FIELD 

ST 

1  ,  QSADDF5 

SET  DA  POINTER 

ST 

2  r QSMASK5 

SET  MASK 

* 

THE 

I E A  TEMP  INSTRUCTION 

HAS  BEEN  CREATED 

L 

9  r VSVALUE+4 

TOE  OF  NEXT  CHUNK 

ST 

4  ,  V  SV ALUE  +  4 

UPDATE  SGT  POINTER 

LR 

8  r  4 

FOR  LATER  USE 

L 

7  ,  =  F  *  4  • 

LENGTH  OF  MOVE 

L 

6 , =F 1 3 ' 

FOR  EX  STATEMENT 

LR 

5,9 

REG  5  IS  INDEX 

SF 

5,7 

DECREMENT  INDEX 

L 

4,  VS\ALUE-f4 

GET  CS  POINTER 

LA 

3 , GDINSFT2 

FOR  BRANCHING 

B 

GDMCVE 

MOVE  SECTION  OF  CODE 

* 

NOW 

MUST  INSERT  JMP  INSTRUCTION 

GDINSRT2 

LR 

5,4 

NEED  DUPLICATE 

LR 

*7,4 

AND  ANOTHER 

SR 

8,9 

LENGTH  OF  JUMP 

ST 

8,0  ( ,  4) 

SET  LENGTH  OF  JUMP 

M  VI 

0  (4)  ,OPJMP 

SET  OPCODE 

* 

NCW 

MUST  CREATE  LS  ENTRY 

TO  CALL  EM 

L 

8 , LSTCP 

ACCESS  LS 

LA 

8 , LSWIDTR  (,  8) 

ALLOCATE  NEW  ENTRY 

USING  L  SREG , 8 

ACCESS  NEW  ENTRY 

SF 

2,2 

ST 

2  ,  ISREL 

ZERO  REL  FIELD 

LA 

4,4  (,4) 

UP  1  INSTRUCTION 

ST 

4 , L  SO  FG 

SET  ORG  FIELD 

M  VI 

L  SDE , E 1 10C00000* 

SET  DE  FLAG  ON 

SR 

*?,4 

LENGTH  OF  SEGMENT 

ST 

7  ,  LS  DE 

SET  LENGTH  FIELD 

ST 

2  ,LSQP 

ZERO  QP  FIELD 

STM 

0,1 5,GDTEMPEV 

STORE  REGISTERS 

LA 

3  ,GDTEMRET 

SET  RETURN  ADDRESS 

ST 

3,TEMPRET 

B 

GDFINISH 

PASS  CONTROL  TO  EM 

GDTEMRET 

LM 

0,1 5,GDTEMPEV 

RESTORE  REGISTERS 

SR 

2,2 

ST 

2 ,TEMPRET 

ZERO  TEMPRET 

* 

NOW 

FINISHED  WITH  IMMEDIATE  EVALUATION 

- 
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* 

NOW 

MUST  PUSH  A  GOP 

OPERATOR  INSTRUCTION 

GDGOPINS 

I 

9 , Q  SINS  FT 

ACCESS  TOP  OF  QS 

USING  QSREG2 , 9 

ACCESS  NDW  ENTRY 

L 

6 , G  EOPER 

GET  APL  OPERATOR 

SIL 

6 , 2 

INTO  BYTES 

S 

6,=f*4* 

BACK  1  WORD 

A 

6  ,  =  A  (GDOPTBL) 

DISPLACEMENT  INTO  TABLE 

M  VC 

QSOP2  (4)  ,0  (6) 

LOAE  ADDRESS  EM  ROUTINE 

M  VI 

QSOE2  ,CPGOP 

SET  OPCODE 

LA 

9, QSWIETH2  (r9) 

UPDATE  QSINSRT 

ST 

9 , QSINSET 

RESTORE 

E 

GDF3NISH 

NOW  FINISHED 

* 

NOW 

MUST  HANDLE  THE 

SCALAR  OPERANDS 

GDDYADIC 

BCTR 

8,0 

CHANGE  OPCODE  TO  DYADIC 

L 

E  AIR 

1 5, = V  (MDADIC) 
14,15 

ADDRESS  OF  DYADIC  ROUTINE 

GDFIN ISH 

DMEX 

GESAVE 

GCOPTBI 

ES 

22F 

GDTEMPEV 

DS 

16F 

GEEISP 

ES 

16E 

GDOPER 

DS 

IF 

■ 
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SELECTION  OPERATORS 


SELECT  LISTING 
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SELECT 


* 


SE2T0P 


* 

SEACCDA 

* 

SECHQIFA 


SEIFALOP 

* 


* 

* 

SEBEAT 


TITLE 

'SELECT  SECTION' 

CSECT 

DMENT2 

!  SESA VE  r SELECT 

WRITE 

6  ,  ' SELECT  HAS 

BEEN 

CALLED* 

STM 

0  r  1  5  ,SEDUMP 

ST 

8 , SIT  E  M  P 

IF  TOP 

1  SEGMENT  IS  NCI  AN 

ARRAY,  EVALUATE  IT 

L 

10, VSTOP 

GET  TOP  OF  VS 

USING 

VSREGr  10 

ACCESS  TOP  ENTRY 

CLI 

V SEX  P , B  *  000000 1 1  ' 

CHECK  EXPRESSION  FOR  ARRAY 

BE 

SE2TCP 

IF  YES,  CHECK  SECOND  ENTRY 

CALL 

IMMED1 

EVALUATE  TOP  ENTRY 

S 

10, =A  (VSWIDTH) 

DOWN  TO  SECOND  ENTRY 

CLI 

VSBET, E' 00000001 ' 

CHECK  IF  BEATAELE 

B  7 

SEACCDA 

IF  YES,  START  EEATING 

CALL 

IMMEE2 

EVALUATE  SECOND  TOP  ENTRY 

NOW  MUST  START  BEATING  EAS  IN  SECOND  SEGMENT 

L 

9 , VS VALUE+4 

GET  QS  POINTER 

L 

7,VSVALUE+VSWIDTH+4 

GET  NEXT  QS  POINTER 

REG  9 

USEE  AS  INDEX 

THROUGH  QS 

CLI 

0  (9)  , OPIF A 

CHECK  IF  IE  A  INSTRUCTION 

BE 

SEBEAT 

YES?,  BRANCH  FOR  BEATING 

L 

8,0  (,9) 

LENGTH  OF  INSTRUCTION 

SRL 

8,30 

ISOLATE  IT 

AR 

9,8 

INCREMENT  INDEX 

CR 

7,9 

CHECK  IF  FINISHEE  SEGMENT 

BH 

SECHQIFA 

RETURN  FOR  NEXT  EA 

B 

SEFINISH 

OTHERWISE,  FINISHED 

L 

8,0  (, 9) 

LENGTH  OF  INSTRUCTION 

B 

SEFINISH 

OTHERWISE,  FINISHED 

REG  9 

POINTS  TO  QS  INSTRUCTION  WHICH  POINTS  TO  A  DA 

USING 

QSREG5 , 9 

ACCESS  THAT  INSTRUCTION 

L 

6 , QS AEDR5 

REG  6  HAS  DA  POINTER 

USING 

DESCRIPT, 6 

ACCESS  EA 

CLC 

DAREFCNT  (2)  ,  =  F 

'  1  ' 

CHECK  IF  RS  IS  ONE 

EE 

SEBEAT 

THEN  PROCEED  WITH  EEATING 

RC>  1  , 

THEREFORE  MUST 

COPY 

DA  AND  THEN  BEAT 

L 

2,4  ( ,  9) 

DA  POINTER 

CALL 

COP YD A 

THE  DA  IS  COPIED 

NOW  MUST  CHOOSE  TYPE 

OF  EEATING  OPERATION 

L 

2, VSVALUE+VSWIDTH+4 

QSPCINTER  FOR  LHC 

LR 

3,6 

EA  POINTER 

L 

5  ,  SETE  M P 

ACCESS  THE  OPCCEE 

C 

8  ,  =  F  '  9 ' 

CHECK  FOR  DROP 

BH 

SETAKE 

ERANCH  FOR  TAKE 

BE 

SEDROP 

BRANCH  FOR  DRCE 

C 

8, =F ' 10* 

CHECK  IF  TRANSPOSE 

BE 

SETFAN 

BRANCH  IF  TRANSPOSE 

CALL 

SELEEV 

APPLY  REVERSAL  OPERATION 

• 

. 
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B 

SEIEALOF 

REIURN  FOR 

NEXT 

EA 

SETAKE 

CALL 

SEITAKE 

APPLY  TAKE 

PRCCE 

SS 

B 

SEIF  ALOP 

RETURN  FOR 

NEXT 

EA 

SEEROP 

CALL 

SEIERCP 

APPLU  DROP 

PROCE 

SS 

B 

SEIF  ALOP 

RETURN  FOR 

NEXT 

EA 

SETRAN 

C  AIL 

SELTRANS 

APPLY  TRANSPOSE 

PROCESS 

B 

SEIF  ALOP 

RETURN  FOR 

NEXT 

EA 

SEFINISH 

EMEX 

SESAVE 

SETEMP 

D  £ 

IF 

SEEUMP 

DS 

1  6F 
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APPENDIX  H. 


PROGRAM  CC N  ST ANT  S . 


MACROS. 


EQUATES. 


APLMCCNS . 


QSCPCCDES. 


SIACK  REGISTERS 
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SLABEL 

8LABEL 


SLABEL 
81  ABEL 


8LAEEL 

6LABEL 


8SAVE 


81  ABEL 
8  LAB  EL 


SLABEL 
*  CALI 
8  LAB EL 


TITLE  1 II K K AG E  CONVENTION  MACROS' 

MACRO 

DMENT2  8  S  AVE , 8N A  ME 
STM  14,12,12(13) 

IR  12,15 
IR  15,13 
USING  8  N A  ME , 12 
USING  APLMCCNS  ,11 
IA  1  3 , 8S AVE 
ST  15,6SAVE+4 
ST  13,8  ( ,  1  5) 

MEND 

MACRO 

DMENT  8SA VE  ,6NAME 
STM  14,12,12(13) 

LR  12,15 
IR  11,13 
USING  8NAME, 12 
USING  APLMCC NS , 1 1 
LA  1 3 , 8  SA  VE 
ST  11, 8SAVE  +  4 
ST  13,8  ( , 1 1 ) 

MIND 

MACRO 

CMEX  8SAVI 
I  13,SSAVE+4 

IM  14,12,12(13) 

BR  14 
C  NOP  0,4 
ITORG 
ES  20F 
MEND 

TITLE  'MACRO  DEFINITIONS  USED  IN  EM ACHINE ' 
MACRO 

CALLREC  8R 
I  14, BCTT  ECOL 

I  1  5  ,  =  V  (8 R) 

BALR  10,15 
MEND 
SPACE  2 
MACRO 

CALLRENT  8RCUT 

OF  A  ROUTINE  THAT  IS  RE-ENTERANT 
L  1  5 , =V  (8R0UT) 

E  AIR  10,15 
MEND 
SPACE  2 
MACRC 
C ALIO  SR 


81 ABEL 
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I 

1  ,  =  F  * -29 1  * 

L 

1  5  ,  =  V (SR) 

EALR 

14,15 

MEND 

SPACE 

2 

MACRO 

SLAB 

C  SOP  S 

SA, 81=256, SI=0,8ST=1 

. *  I  INDICATES 

INSTRUCTION  AN  INITIALIZATION  INSTRUCTION 

.*  SUCH 

AS  IEA, 

IA , ETC  .  ST  INDICATES  INSTRUCTION  SHCULD  BE 

.*  SKIFPEE  WEEN 

TEE  IS  STRUCTURE  BIT  IS  ON. 

OPS  A 

ECU 

( 64*81)  +  (*-QSOFTABL) /4 

SI  AB 

DC 

IB*  SI. SST.  000000* 

DC 

V I 3 (SA) 

MEND 

SPACE 

2 

MACRC 

SLABEL 

RECURENT 

USING 

*,11 

USING 

APLMCCNS, 13 

.*  THIS 

ROUTINE 

SHCULD  EE  ENTERED  ONLY  BY  CALLREC 

SLABEL 

STM 

0,12,8  (14) 

IR 

11,15 

M  VC 

0(8,14)  ,  SAVEA  RR 

LA 

12,60  ( , 1 4) 

ST 

1 2 , BCTT  PCCL 

S 

1 4 ,TCPPCCI 

A 

14, =A  (140) 

BNP 

*  +  6 

DC 

1  H  *  C  * 

MEND 

SPACE 

2 

MACRC 

SLABEL 

RECURET 

SI  ABEL 

C 

12,  ECTTPCOL 

BE 

RETSSYSNDX 

IR 

1,12 

S 

1 ,  =  A  (60) 

CALLREC  ERASEARR 

IM 

0,12,8(1) 

BR 

10 

RETSSYSNDX  S 

12, =A (60) 

ST 

12,  ECTTPCCL 

LM 

0,12,8  (12) 

ER 

10 

DROP 

11,13 

MEND 

SPACE 

2 

MACRC 

SLABEL 

RENTENT 

*  RE-ENTRANT  ENTRY  TO  ROUTINE  -  BUT  NOT  RECURSIVE  ENTRY 

BUT  NOT  RECURSIVE  ENTRY 
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* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

★ 


REG  10  - 


CALLING  PROGRAM. 


REG 

REG 


1  1 
12 


ROUTINES.  IT 
RE-ENTER ANT , 


REG  13  - 


REG 

REG 


14 

15 


CONTAINS  ADDRESS  TO  RETURN 
I.E.  EALR  10  r 1 5 

EASE  REGISTER  FOR  PROGRAM  CALLED. 

ADDRESS  CE  SAVE  AREA  FOR  EMACHINE 
PROVIDES  FOR  RE-ENTERANT  AND 
RECURSIVE  CALLS. 

ADDRESS  OF  SAVE  AREA  WITH  OS/360  LINKAGE 

CONVENTIONS.  MAY  OR  MAY  NOT  BE  RE-ENTRANT. 
CAN  NCT  PROVIDE  FOR  RECURSIVE  CALLS.  ALSO 
ADDRESS  OF  APLM  CONSTANTS. 

REGISTER  USED  TO  CALCULATE  TEMPORARY  VALUES. 
ENTRY  POINT  ADDRESS  OF  CALLED  ROUTINE. 

TEEN  SIMILAR  TO  REG  14 


SLABEL 


USING  *,11 
USING  APLMCCNS, 1 3 
STM  10,11,0(12) 
LR  11,15 


SLABEL 


LA 
MEND 
SPACE  2 
MACRO 
RENTRET 


12,8  (, 12) 


ADDRESSABILITY  ECR  ROUTINE 
CONSTANT  ADDRESSIBIIITY 
REGISTERS  SAVE 
CALLED  ROUTINE  BASE  REG 
INITIALIZED 
NEW  SAVE  AREA  ADDRESS 


*  RECURSIVE  RETURN 

.*  THIS 

MACRO 

IS  USED  TO  RETURN 

CONTROL  WHEN  ROUTINE  USED 

.*  RENTENT  TO 

DO  THE  ENTRY 

SLAEEL 

S 

12  ,  =  A  (8) 

ADDRESS 

OF  BACK  SAVE 

AREA 

LM 

10,11,0  (12) 

CALLING 

BASE,  RETURN 

POINT 

BR 

10 

RETURN 

DROP 

MEND 

MACRO 

11,13 

SLABEL 

VSERR 

ST 

A  IF 

(•ST*  EC  ' FULL') . 

FULL 

MNOTE 

4 , *  ST  IS  AN  UNRECOGNIZABLE 

OPERAND* 

MEXIT 

.  FULL 

ANOP 

SLABEL 

BNH 

*  +  6 

DC 

MEND 

1 H  '  0  ' 

■ 
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TITLE 

'EQUATES  -  ALL  EQUATED  VALUES  USEE  IN  THE  EM' 

DUMMY 

DSECT 

RESULT 

EQU 

0  RCUTINES 

WHICH  +  -  *  THE  TOP  OF  VALUE 

* 

STACK  RETURN  RESULT  IN  GENERAL  REGISTER 

* 

OB  FLOATING  REGISTER  0 

AEDRP ARM 

ECU 

1  MTS  SYSTEM  GETSPAC  AND  EREESPAC  USE 

* 

REGISTER 

TO  PASS  AN  ADDRESS.  IF  1  ADDRESS 

* 

IS  PASSED 

TO  APL  ROUTINES  THIS  IS  USEE 

R 1 

EQU 

1 

ESSENTIALLY  SAME  AS  A EEP ARM 

ISPNT 

EQU 

2 

ADDRESS  CURRENT  IS  ENTRY 

MULT 

EQU 

2 

EVEN/ODE  REGISTER  PAIR  FOR 

* 

MULTIPLYING 

SUM 

EQU 

4 

ACCUMULATIVE  SUMS 

QSNTPNT 

EQU 

G 

CSFNTPSH 

EQU 

5 

ADDRESS  ENTRY  PUSHED  TO  QS 

PUT 

EQU 

6 

EAPNT 

EQU 

6 

ADDRESS  OF  A  DESCRIPTOR 

LSPNT 

EQU 

7 

ADDRESS  CURRENT  IS  ENTRY 

VSTOPR 

EQU 

8 

ADDRESS  TOP  VALUE  STACK 

VSPNT 

EQU 

8 

ADDRESS  CURRENT  VS  ENTRY 

QSPNT 

EQU 

9 

ADDRESS  CURRENT  QS  ENTRY 

I 

EQU 

10 

COUNTER  FCR  LOOPS  ETC. 

RETURN 

ECU 

10 

ABSOLUTE  ADDRESS  CF  RETURN 

* 

CALLING  PROGRAM 

PROGEASE 

ECU 

1 1 

ABSOLUTE  ADDRESS  PRCG  EASE 

ESAVE 

EQU 

12 

SAVE  AREA  FOR  EM  ROUTINES 

CCNSSAVE 

EQU 

13  ABSOLUTE 

ADDRESS  PROGRAM  CONSTANTS  AREA. 

* 

FIRST  18 

WORDS  OF  THIS  AREA  IS  SAVE  AREA. 

* 

THIS  REGISTER  IS  PERMANENTLY  ASSIGNED 

TEMPI 

EQU 

14 

CALL AEER 

EQU 

15  ABSCIUTE 

ADDRESS  OF  ENTRY  POINT 

TEMP 

EQU 

15 

SPACE 

4 

TYPBOOL 

ECU 

B  '  10000000 ' 

MASK  BIT  FOR  TYPE  EOCL 

TYPCHAR 

ECU 

B  *  01000000* 

MASK  EIT  FOR  TYPE  CHARACTER 

TYPINT 

ECU 

B  *  00 1 COCOO  ' 

MASK  EIT  FOR  TYPE  INTEGER 

TYPREAL 

ECU 

B'COCIOOOO' 

MASK  BIT  FCR  TYPE  REAL 

TYPLREAL 

EQU 

B  *00001000* 

MASK  BIT  FOR  TYPE  LCNG  REAL 

TYPSTRUT 

EQU 

B'00000100' 

MASK  BIT  FOR  TYPE  STRUCTURE 

TYPUNUSE 

EQU 

B •  00000010  ' 

MASK  EIT  FCR  UNUSED  MEMORY 

* 

ALLOCATIONS 

ARITH 

EQU 

B  *  1C1  1  1000  * 

MASK  El T S  FOR  BOOL f I N T EGER , R E AL 

* 

LCNGREAL  RESPECTIVELY. 

SPACE 

4 

TAGJT 

ECU 

1 

VALUE  OF  TAG  FOR  J-VECTOR 

TAGET 

EQU 

2 

VALUE  OF  TAG  FOR  DA  POINTER 

T AGEDT 

EQU 

3 

VALUE  OF  TAG  FOR  DT  EXCEPT 

* 

ARRAY  IS  TO  BE  FETCHED 
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TAGFMT 

EQU 

4 

VALUE  OF  TAG  FOR  FUNCTION  MARK 

TAGFT 

EQU 

5 

VALUE  FUNCTION  DESCRIPTOR  F NT R . 

TAGAT 

ECU 

6 

VALUE  OF  TAG  ENCODED  M- ADDRESS 

TAGNPT 

ECU 

7 

VALUE  OF  TAG  FOR  NAME  POINTER 

TAGRT 

ECU 

8 

VALUE  OF  TAG  FOR  REDUCT  ACCUM 

TAGSGT 

ECU 

9 

VALUE  CF  TAG  SEGMENT  DESCRIPTOR 

T  AGST 

ECU 

10 

VALUE  OF  TAG  FOR  SCALAR  VALUE 

TAGUT 

EQU 

1 1 

VALUE  OF  TAG  UNDEFINED  VALUE 

TAGNLT 

EQU 

12 

VALUE  OF  TAG  FOR  END  ICB  BLOCK 

TAGNT 

EQU 

13 

VALUE  OF  TAG  FOR  ICE  BLOCK 

TAGQLT 

ECU 

14 

VALUE  OF  TAG  FOR  END  ICB  BLOCK 

TAGQT 

EQU 

15 

VALUE  CF  TAG  FOR  ICE  ELOCK 

SPACE 

4 

LSDEON 

EQU 

B* 10000000* 

MASK  BIT  TO  SET ,  TEST  DE 

EMAC 

ECU 

LSDECN 

LSTSON 

EQU 

B*  01000000* 

MASK  BIT  TO  SET, OR  TEST  IS 

LSFNCN 

EQU 

E  *  001  00000  * 

MASK  BIT  TO  SET,CR  TEST  FN 

LSNWTON 

EQU 

B  *  0CC1  0000  • 

MASK  BIT  TO  SET, TEST  NWT 

NEWITON 

ECU 

E* 10000000* 

SET,  TEST  NEWIT 

NEWITOFF 

EQU 

B’01111  111  * 

MASK  BIT  TO  SET,  CR  TEST 

* 

IF,  NEWIT  IS  OFF 

STPTGON 

EQU 

B  *  01000000  ' 

MASK  BIT  TO  SET,  OR  TEST 

$ 

IF,  STEPTOG  IS  ON 

STPTGOFF 

EQU 

B* 10111  111  ' 

MASK  TO  TURN  STEPTOG  CFF 

LSTRTON 

EQU 

B  *  OCOOI 000  * 

STRUCTURE  BIT  IS  CN  IN  LS 

1STRTOFF 

ECU 

E* 1  1110111  * 

STRUCTURE  BIT  OFF  IN  LS 

ISTRTON 

ECU 

B*0C010000  • 

STRUCTURE  BIT  CN  IN  IS 

ISDIRON 

EQU 

B‘10000000' 

MASK  BIT  TO  SET,CR  TEST 

* 

IF  DIRECTION  IS  CN 

ISCHON 

EQU 

E  *  01000000  * 

MASK  BIT  TO  SET, OR  TEST 

* 

IE,  CHANGE  IS  ON. 

ISMRKON 

EQU 

B  *  001 00000  * 

MASK  BIT  TC  SET,  CR  TEST 

* 

' IF  MRK  IS  CN 

ISDIROFF 

EQU 

B*0  1 1ll  11  1  * 

TURN  DIRECTION  BIT  CFF 

X  3CN 

EQU 

BMOOCOOOO* 

MASK  BIT  TO  TEST  VALUE  X3 

ISCHOFF 

EQU 

B*  1C111111  • 

TURN  CHANGE  BIT  OFF  IN  IS 

ISBASON 

EQU 

E' 00010000* 

- 
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•AFLMCONS  -  A  DESCRIPTION  CF  ADDR.  ETC  IN  EM' 


TITLE 
ESECT 

EC  9C  *  ERCG SA  VE  * 
SPACE  3 

ADDRESS  CONSTANTS  IN  APLM 


AFLMCONS 
PROGS AVE 


18  WORD  SAVE  AREA.  SHCDLE  BE  ON 
DOUBLE  WORD  BOUNDARY 


MEMADDR 

DC 

A  (MEMORY) 

THE  A 

ARR AVAIL 

DC 

IF  *  0 ' 

FIRST 

DC 

2 A  (APRAVAIL) 

* 

LENGTH  -  THU 

S  CAN 

D  AAVAIL 

DC 

IF  •  0  * 

FIRST 

* 

* 

BOTTPOOL 

* 

* 

TOFPOOI 

* 

* 

ISMARK 

* 

* 

QSCNTRL 

* 

* 

DBI 

* 

* 

SAVEARR 


EC 


DC 


EC 


DC 


EC 


SPACE 

DS 


DC 

SPACE 


2 A  (E AAV  AIL) 
APPEARS  TO  HAVE 


ZERO 


A  (4) 


CF  THE 


DDRESS  CF  LOCATION  ZERO 
NODE  IN  ARRAY  AVAIL  LIST 
NODE  LOOKS  LIKE  ARRAY  OF  0 
NOT  BE  ALLOCATED. 

NODE  IN  DESCRIFTCR  ARRAY 
A V AILIBILITY  LIST.  NODE 
LENGTH  -  THUS  CAN  NOT  BE 
ALLOCATED. 

ABSOLUTE  ADDRESS  OF  THE  LOW  END 
ECOL  *  ONE  WORD  FAS  MEMEND.  LOW  END 
HAS  LOW  VALUED  ADDRESS. 

(X  '  FFFFFF ' )  ABSOLUTE  ADDRESS  OF  THE  HIGH 
NEND  OF  THE  FOOL.  ADDRESS  LIKELY  DOES 
NOT  HAVE  VALUE  INDICATED. 
(ISEASE-ISWIDTH)  ABSOLUTE  ADDRESS  CF  FIRST 
(CLOSEST  TO  THE  TOP  OF  THE  STACK) 

ENTRY  IN  IS  TO  HAVE  ISMRK  BIT  ON. 

IDENTIFIES  INSTRUCTION  IN 
QS  THAT  CAN  PUSH  ENTRIES  TO  THE 
IS  FOR  INDEXING  STRUCTURES. 


1  F  •  0  ' 


4 

ID 


CETAIN 


C*SAVEARR 

4 


TEMPORARY  LOCATION  -  USED  TO 
BOUNDARY  ALIGNMENT.  EXAMPLE,  DOUELE 
WORE  OPERANDS  IN  VSREG 

i 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


THE 


FOLLOWING  AECCNS  OBEY  THE  FOLLOWING  CONVENTIONS: 

(1)  THE  "BASE"  ADDRESS  POINTS  AT  AN  ENTRY  EEFCRE  THE 
FIRST  ENTRY  IN  THE  STACK.  FOR  EXAMPLE,  TEE  FIRST 

ENTRY  TO  BE  FOACED  IN  THE  VS  IS  AT  "VSBASE  +  VSWIDTH" 

(2)  THE  "SCAN”  ADDRESS  POINTS  AT  ANY  ENTRY  THAT  IS 
CURRENTLY  IN  THE  STACK.  FOR  EXAMPLE,  TEE  CURRENT 

INSTRUCTION  POINTER  USED  IN  QSREG  IS  QSSCAN 

(3)  THE  "TOP"  ADDRESS  POINTS  AT  THE  LAST  ENTRY  TO  BE 
PLACED  IN  A  STACK,  THIS  IMPLIES  THAT  "TOP"  EQUALS  "END" 

WEEN  THE  STACK  IS  FULL,  AND  THAT  "TOP"  EQUALS  "BASE" 

IS  AN  ERROR  I.E.  WHEN  THE  STACK  IS  EMPTY  "TOP" 

EQUALS  "EASE"  ♦  "WIDTH" 

(4)  THE  "END"  ADDRESS  IS  THE  UPPER  BOUND  -  ACTUALLY 
HIGHEST  ADDRESS  -  AT  WHICH  ENTRIES  MAY  EE  PLACED. 


I  SENE 

ES 

1  A 

ISTOP 

ES 

1  A 

ISSCAN 

DS 

1 A 

BE 

■ 


- 
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ISBASE 

DS 

1 A 

LSEND 

DS 

1  A 

L  STOP 

DS 

1  A 

LSSC AN 

DS 

1  A 

LSBASE 

DS 

1 A 

QSEND 

DS 

1  A 

Q  STOP 

DS 

1  A 

QSINSRT 

DS 

1  A 

QSBASE 

DS 

1 A 

VSEND 

DS 

1  A 

V  STOP 

DS 

1  A 

VSSCAN 

DS 

1  A 

VSBASE 

DS 

1  A 

NTEND 

DS 

1  A 

NTTOP 

DS 

1  A 

NTSCAN 

DS 

1  A 

NTBASE 

DS 

1 A 

TEMPRET 

DC 

1  F  *  0  * 

REGISTER  TO  RETURN  TO  DM  FROM  TEMP 

SPACE 

3 

EVALUATIONS 

VSTAGERR 

DC 

IF*  O' 

VSTYPERR 

DC 

IF  '  0  ' 

SPACE 

3 

*  BIT  CONSTANTS  IN  APLM 

NEWIT 

DS 

OB 

INDICATES  ENTRIES  HAVE  BEEN 

* 

PUSHED  TO  IS 

WHICH  HAVE  NOT  YET  BEEN  STEPPED. 

STEPTOG 

DS 

OB 

IS  SET  BY  STEPIS  TO  INDICATE 

* 

THAT 

THE  IS  UP  TO  ISMARK  HAS  NOT  YET 

* 

DS 

IB 

BEEN  FULLY  INTERATED . 

SPACE 

5 

♦  AS  AN 

EXTRA 

ADVANTAGE 

WE  INCLUDE  DESCRIPTION  OF  MEMORY. 

MEMORY 

DS 

OD 

MEMEND 

DC 

A  (X  *  FFFFFF ' )  HIGHEST  ADDRESS  IN  MEMORY. 

*  UNLIKELY  TO  EE  THIS  LARGE . 

*  FUNCTIONS  AND  ARRAYS  ARE  KEFT  IN  THE  LOW  END  OF  MEMORY. 

*  "EOTTFCCL"  POINTS  AT  THE  LAST  ELEMENT  (HIGHEST  ADDRESS)  OF 

*  SPACE  TAKEN  UP  BY  THE  LAST  FUNCTION  OR  ARRAY. 

*  UNUSED  A VAILAELE  SEACE 

*  " TOPFOOI"  POINTS  AT  THE  LAST  ELEMENT  (LOWEST  ADDRESS)  OF 

THE  HIGH  END  OF  MEM. 


* 

SPACE 

TAKEN 

UP  BY  THE  LAST  DA. 

*  DA'S  OR  DESC 

BIPTCR 

ARRAYS  ARE  KEPT  IN 

SPACE 

4 

ARRHEAD 

D  SECT 

ARRTYPE 

DS 

0  F1 1 

ARRLEN 

DS 

IF 

ARRFILL 

DS 

1  H 

ARREFCNT 

DS 

1  H 

ARRHDLN 

ECU 

♦-ARRHEAD 

SPJCE 

2 

DESCRIPT 

DSICT 

, 

mm 
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C  ATYPE 
EALFN 
E AFILL 
E AFEFCNT 
D AVEASE 
E AABASE 
E  A  RANK 
DAEIMEN 
EAEFI 


ES 

OFF  1 

DS 

IF 

ES 

1  H 

DS 

1  H 

ES 

1  F 

DS 

IF 

ES 

IF 

DS 

IF 

ES 

IF 
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TITLE 

' E-MACHINE  INSTRUCTION  AND  FORMATS' 

C  NO  P 

0,4 

CSOFTABL  ES 

OH 

* 


*  | OP : XX | XX : XX |  TYPE  1 


▼ 

* 

OP  -OPERATION  CODE 

* 

XX  -UNUSED  BYTES 

QSOPS 

CYr 1=1 

Q  SOP  S 

IRP  , I = 1 rI  =  1 

CSOPS 

IVE, 1=1 

Q  SOP  S 

MIT  ,1=1 

QSCPS 

NIL  ,1=1 

QSOPS 

ORG  ,1=1 

CSOPS 

PCFV  S , 1= 1 

CSOPS 

RPT  ,1=  1 

CSOPS 

VXC,L=1 

SPACE 

3 

* 

| OP : <A : DD : R> |  TYPE  2 

* 

ADDB-24  BIT  DISPLACEMENT  OR  ABSOLUTE  ADDRESS 

CSOPS 

C  AS  , L=  1 

QSOPS 

DUP  ,1=1 

CSOPS 

GCP  , L=  1 

QSOPS 

IRE  ,L=1 ,1=1 

QSCPS 

I XL  ,L=  1 ,1=  1 

QSOPS 

JMP  ,1=1 

CSOPS 

JNO  ,1=1 

QSOPS 

J  N  1  ,  L  =  1 

QSCPS 

JO , L= 1 

QSOPS 

J  1,1=1 

QSOPS 

1X1 ,1=1 

QSOPS 

LX2  ,  L=  1 

CSOPS 

CP, 1=1 

QSCPS 

PED  , L=  1 

QSOPS 

SX  1  , L= 1 

QSOPS 

SX2 ,L= 1 

QSCPS 

XC , L= 1 

QSOPS 

XL, 1=1 

QSOPS 

XS,I=1 

SPACE 

3 

* 


*  |OP: XX  :TY: VL|  TYPE  3 

* 

*  TY  -CNE  EYTE  IENOTING  DATA  ^ YPE 

*  VL  -CNE  Eli  OF  EYTE  OF  LOGICAL  OF  CHAFACTER 
Q SOP S  SI, 1=1 

EJECT 


. 


. 

175 


* 

*  | OP :XX  :TY:XX|  |  V:AL|UE:2  |  TYPE  4 

* 

*  V  ALU  E2-FUIL  WORD  INTEGER  OR  REAL  DATA 
QSOPS  S4, 1=2 

SPACE  3 

* 

*  |OP: <0 | RG: >>|  | MB : <L| EN : >>|  TYPE  5 

* 

*  ORG  -24  BIT  DISPLACEMENT 

*  LEN  -24  BIT  LENGTH 

*  MD  -LEFTMOST  BIT  CF  BYTE  IS 

*  MODE  FOR  SGV 

*  -IEETMOST  BIT  IS  DIRECTION  FOR  IJ 
QSOPS  IJ, 1  =  2, 1=1 

QSOPS  SG  V  ,  1=  2 
EJECT 

* 

*  | OP : XX  :TY : XX 1  | < V : AL | UE : 3> |  | < V : A L  1 U E : 3> |  TYPE  6 

♦ 

*  V ALUE3-64  BIT  REAL  DATA 
QSOPS  S 8 , L  =  3 

SPACE  3 

* 

*  | OP : <M | AS : K> 1  |  XX : < A  :  DD : R> |  | XX : LN | KD : SP |  TYPE  7 

* 

* 

* 

* 

* 

Q SCPS  A  ,  L  =  3 , ST  =  0 
QSOPS  F  A  ,1  =  3  ,ST  =  0 
QSOPS  IA, 1  =  3, 1=1 
QSOPS  IF A, L= 3, 1=1 
SPACE  3 

♦ 

*  |0P:<0|RG:»|  |  MD  :  <L  I  EN  :  >>  |  |  XX  :  LN  |  K  D  :  SP  |  TYPE  8 

* 

QSOPS  ISC  ,L  =  3  ,1=1 
QSOPS  J  , L=  3 
QSOPS  SC  ,  L  =  3 
QSOPS  SG , L  =  3 


MASK  -  24  BIT  ARRAY  ACCESS 

MASK 

LNKDSP-24  BIT  LINK 

DISPLACEMENT  VALUE 
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TITLE  ’E-MACHINE  REGISTER  FORMATS* 
AFLMREGS  ESECT 
* 

*  | XX  :<C : TF : >> |  | FL : <M | AX : >> J 

* 


ISREG 

ESECT 

ISCTR 

ES 

IF 

ISEIR 

DS 

OB 

ISCH 

ES 

OB 

ISMRK 

ES 

OB 

ISTRT 

ES 

OE 

I SBASMRK 

DS 

IB 

ISMAX 

ES 

1  FI  3 

ISWIDTH 

ECO 

SPACE 

*-ISREG 

3 

* 


*  I  XX : <R | II : >> |  | XX : <C | RG : >> |  | FL : <1 1 IN : >> |  | XX : << | Q F : >> 1 

* 


* 

REL-24  BIT 

COUNTER 

* 

CRG-24  BIT 

DISPLACEMENT 

* 

FI  -FI AGS 

D/E ,  ISr  FN, 

* 

LEN-24  BIT 

LENGTH 

* 

CP  -24  BIT 

DISPLACEMENT 

ISREG 

D  SEC  T 

ISREI 

ES  IF 

LSORG 

DS  IF 

I  SEE 

ES  OB 

LSIS 

DS  OB 

ISFN 

ES  OE 

LSNWT 

DS  OE 

ISTRT 

ES  IB 

LSLEN 

DS  1FI 3 

LSCP 

ES  IF 

L  S WIDTH 

EQU  *-I S  REG 

SPACE  3 

NTRFG 

DSECT 

NTINX 

DS  1 H 

NTTYPE 

ES  1  F1 1 

NTIOCAL 

ES  OP 

NTMARK 

DS  OB 

N  TT  AG 

ES  IB 

NTVAIUE 

DS  2  F 

NTWIETH 

ECU  *-NTEEG 

SPACE  3 

QSFEG1 

DSECT 

QSOP1 

DS  FL  1  CP  CODE 

ES  FI 3  UNUSED 

QSWIETH1 

ECU  *-CSREGl 

SPACE  3 
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CSREG2 

ESECl 

QSCP2 

ES 

ELI  CP  CODE 

QSADDR2 

ES 

FL3  24  BIT 

ADDRESS 

QSWIE1H2 

EQU 

*-CSBEG2 

SPACE 

3 

QSREG3 

D  SEC  I 

QSCP3 

ES 

Ell  OP  CODE 

QSTYPE3 

DS 

F I 1  TYPE  OF 

VALUE 

CSVALUE3 

ES 

FL 1  VALUE  - 

EOCLEAN  OR 

CHARACTE 

ES 

FL 1  UNUSED 

QSWIDTH3 

EQU 

*-CSREG3 

SPACE 

3 

CSBEG4 

ESECT 

QS0P4 

DS 

FL  1  CP  CODE 

QSTYPE4 

DS 

F L  1  TYPE  OF 

VALUE 

DS 

F  L  2  UNUSED 

QSVAIUE4 

ES 

F  VALUE  - 

INTEGER,  REAL,  OR  S 

CSWIDTH4 

ECU 

*-CSKEG4 

SPACE 

3 

Q  SB  EG  5 

D  SEC  T 

QS0P5 

ES 

ELI  CP  CODE 

QSLINK5 

DS 

1FL3  LINK  TO 

HIGHER  LEVEL  FA  IN 

QSAEIB5 

ES 

IF  D . A.  ADDRESS 

QSMASK5 

DS 

IF  32  BIT 

ACCESS  MASK 

CSWIETH5 

ECU 

*-CSREG5 

SPACE 

3 

CSBEG6 

DSECT 

Q  SOP  6 

DS 

F L  1  CP  CODE 

C  STYPE6 

DS 

Ell  TYPE  CF 

VALUE 

DS 

FL2  UNUSED 

QS VALUES 

DS 

2F  VALUE  - 

LONG  REAL 

QSWIETH6 

ECU 

*-CSBEG6 

SPACE 

3 

QSBEG7 

DSECT 

QS0P7 

ES 

ELI  CP  CODE 

QSTYPE7 

DS 

IF  1 1 

QSLINK7 

ES 

1  FI 2  ICB  LINK 

QSLEN7 

DS 

1 F  L 1  LENGTH 

IN  BYTES  OF 

TYPE 

QSVBASE7 

DS 

1 FL3  ADDRESS 

OF  DATA 

QSSUM7 

DS 

IF  INDEX  TO  CURRENT  ELEMENT 

CSWIETH7 

ECU 

*-CSREG7 

SPACE 

3 

CSREG8 

ESECT 

Q  SOP  8 

DS 

FL1 

QSX  1 

ES 

EL  3 

QS  X  3 

DS 

F  L  1 

CSX  2 

ES 

EL3 

QSLINK8 

ECU 

*-CSREG8 

SPACE 

3 

CSICB 

DSECT 
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C  STAG 

ES 

F  L 1 

CSQ1 

ES 

F  1 3 

QSQ2 

CS 

F 

CSINX 

ES 

F 

QS  ICEVJID 

ECU 

SPACE 

*~CSICB 

3 

* 


*  :TG : XX :TY: VI 1  |  <V : AL | UE: >> |  | << : VA | LU r E> 1 

* 


SPACE 

3 

SEGDREG 

DSFCT 

SDLEN 

ES 

IF 

SERC 

ES 

1 H 

SEFTIIER 

ES 

1  H 

SEFISR 

ES 

1F1 1 

SEEASE 

ES 

3F1 1 

SEORG 

ES 

1F1 1 

SDFIEN 

DS 

3EI1 

SEFPARS 

DS 

1 H 

SDFICLS 

ES 

1  H 

SEPARNMS 

ES 

IF 

SPACE 

3 

VSREG 

E  SEC  1 

VS1  AG 

ES 

1  F1 1 

VS1YPE 

DS 

1  F1 1 

VSEXP 

ES 

1  F1 1 

VSBET 

DS 

IF  1 1 

VSVAIUE 

ES 

2F 

VSWIETH 

ECU 

*- V SREG 
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